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Speciale MSX 
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Jackson 
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computer 




Guida all’input dei prodrammi sullo ZX Spectrum 


Le "parole“ comprese tra porentcv graffe indicano i caratteri grafici pre 
definiti (G). il tasto (numero seguente la G). la necessità di premere il tasto 
insieme a CAPS SHIFT (eventuale 5 precedente la G) e il numero di npeo- 
zioni del tosto nehieste (e-rentuale numero all'inizio della parola ") I ca¬ 
ratteri grafici definiti dal programma sonò invece indicati da lettere maiu 
scole (comspondenti al tasto da usare) sottolineate 


[ Quando leggete 


Premete 


{Gl} 
{G2} 
{G3} 

{G 4} 

{G5} 

C G 6} 

{G 7} 

(G8} 

{SGl} 
{SG2} 
(SG3} 
{SG4 } 
{SG5} 
{SG6} 
(SG7} 
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{SG8} 




Vedrete 



Quando leggete Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

1 ^ 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 



Simbolo grafico 
definito nel 
programma in uso. 



Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono “parole” rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
| controllo del cursore o dei colori. 


{CLR} 

(HOME) 

{su} " 
{GIU 1 } 
{SIN} 
{DES} 

{RVS} 
{OFF} 
{BLK) 
{WHT} 
{RED) 


SMlM ICl#'HOMI 


CU/HOMI 


[ SMtf t 


CBSB U 


BBBHB 


Il casa il] 


BB^BB 

[SMH 

A 
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C^CfiSB -=} 


etn 


etti 


□ 



G 


s 


n 




CYN } 
PUR} 
GRN} 
BLU} 
YEL} 
< 1 >] 
< 2 >} 
<3>] 
<4>1 
<5>J 
< 6 >) 


CIRI 

T-l 


cm 

I ‘ ! 

DMB m 

crei 

1 ^ 


cibi 

r 

■■■■■ 

[CIBI 

L. 


HO 
0D 
0 □ 
0O 
0O 
0 □ 


■y 

I < 7 > } 

m 

l < 8 >} 

□ 

{FI} 

Q 

{F 2 } 


{F 3 } 

□ 

{F 4 } 

R 

{F 5 } 


{F 6 } 

o| 

{F 7 } 

E 

{F 8 } 
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□ 

HO 
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II 
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SI 
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C appiè 


Cattura--- 

' ------- - - 1 



Con questo programmo potrete trasformare un 
vostro programmo BASIC in file di tipo TEXT. 
Una volta trasformato in file di tipo TEXT esso 
potrà essere variato usando un qualsiasi pro¬ 
gramma di word processing oppure essere tra 
smesso, tramite un modem, ad un altro cal¬ 
colatore o ad una delle banche dati che stan¬ 
no nascendo anche in Italia. 


IO GOSUB 1000:T* « "CATTURA DI U 
N PROGRAMMA APPLESOFT"a GOSUB 

2000ìT* - "- 

-•: GOSUB 200 

0: PRINT 

15 CD* - ",D" ♦ STR* < PEEK <436 
24) ) 

20 T* « "CREAZIONE DI UN FILE E 

XEC"i GOSUB 2000 aT* - "- 

--, GOSUB 

2000» PRINT i PRINT a PRINT 
a PRINT 

30 T* « "NOME DEL PROGRAMMA DA CA 
TTURARE"a GOSUB 2000 a PRINT 
a INPUT N* a PRINT a 1F N* - 
"" THEN TEXT a HOME a PRINT 
"CIAO!!!!!!"a END 

32 INPUT "SU QUALE DRIUE K"|ND*a 

ND ■= UAL (ND*) t IF ND < > 

1 AND ND < >2 THEN PRINT 

CHR* (7)|i GOTO 32 

33 INPUT "LINEE < DA - ’ A) ? " ; 

LI * a IF LI* = "" THEN LI* « 

"1-63999*; GOTO 40 

34 LI = UAL < LI *)t IF LI < 1 OR 

LI > 63999 OR LI < > INT < 

LI) GOTO 39 

35 IF LI* = STR* (LI) OR LI* = 

STR* (LI) ♦ "-" GOTO 40 

36 IF MID* (LI*, LEN < STR* (LI 

)) ♦ 1,1) < >"-* GOTO 39 

37 LJ » UAL < MID* (LI*, LEN < STR* 

(LI)) ♦ 2))a IF LJ < LI OR L 
J > 63999 OR LJ < > INT <L 

J) GOTO 39 
36 GOTO 40 

39 PRINT CHR* (7);a GOTO 33 

40 PRINT iT* = "NUME DEL FILE E 

XEC": GOSUB 2u00: PRINT s INPUT 
X*: PRINT a IF X* *» “ " THEN 
X* « "X.; ♦ N* a GOTO 45 
42 X* *= "X." ♦ X* 

45 INPUT "SU QUALE DRIUE M"|XD*i 
XD * UAL <XD*)a IF XD* » "" 
THEN XD « NDaXD* » STR* (X 
D)a GOTO 50 


Vi viene chiesto il nome del programma Apple¬ 
soft da convertire e il drive sul quale si trova . 
Poi viene richiesto il nome da dare al program 
ma convertito ed il drive sul quale deve essere 
memorizzato. Infine viene effettuata la conver¬ 
sione vera e propria facendola eseguire ad un 
programma di tipo EXEC. 


46 IF XD < >1 F*ID XD < >2 THEN 

PRINT CHR* (7)|a GOTO 45 
50 GOSUB 1000 a UTAB 9iT* • N*a GOSUB 
2000 a PRINT :T* • "LINEE " ♦ 
LI*; GOSUB 2000; PRINT aT* - 
"DRIUE " ♦ ND* ♦ " CONUERTIT 
0 SUL DRIUE " ♦ XD* ♦ " IN"a 
GOSUB 2000 a PRINT aT* » X*a 
GOSUB 2000 

60 PRINT a PRINT a PRINT a PRINT 
s INPUT "E' ESATTO ? "|R*a IF 
R* < > "SI" GOTO 10 

80 GOSUB 1000 a UT AB Hi FLASH aT 
* - " UN PO' DI PAZIENZA PRE 
GO. "i GOSUB 2000; NORMAL 
100 D* » CHR* (4):G* * CHR* <34 
)aOP* - "OPEN-aWR* - "URITE" 
aDL* « "DELETE-aCL* » "CLOSE 
"* EX* = "EXEC-aKl* * "K*P#T1 
"lK2* » "K*PHT2"aCH* - "PRIN 
T" ♦ G* ♦ CHR* (4) ♦ G* ♦ • 
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110 ZERO* » -0* ♦ CHS ♦ GS ♦ OPS ♦ 

XS ♦ -,D* ♦ XDS ♦ GS ♦ * I* ♦ 

CHS ♦ GS ♦ UiRS ♦ XS ♦ GS ♦ * 
iP0KE33,33iLIST* ♦ L1S ♦ *i* 

♦ CHS ♦ GS ♦ CLS ♦ 6S ♦ * I * 

♦ CHS ♦ 0* ♦ EXS ♦ K2S ♦ CD 
S ♦ GS ♦ "t END* 

200 PR1NT DSOPSK1SCDS; PRINT DSU 
RSKlSi PRINT -LOAD-NS*,D-NDS 
i PRINT ZEROSi PRINT *RUN*i PRINT 
DSCLS 

300 PRINT DSOPSK2SCDSi PRINT DSW 

RSK2S i PRINT *LOADCAPTURE* l PRINT, 
•RUN90Ù*» PRINT DSCLS 


300 PRINT DSEXSK1SCDSi END 
900 PRINT i PRINT CHRS <4>*DELE 
TEK*P#T1•t PRINT CHRS <4>*D 
ELETEK*P4T2*x GOTO IO 

999 END 

1000 TEXT i HOME i COLOR* 10i VLIN 
0,46 AT Oi VLIN 0,46 AT 39i HLIN 
0,39 AT Oi HLIN 0,39 AT 46i VTAB 
3i HTAB 3i POKE 33,36i POKE 

32,2i POKE 34,2I POKE 33,22t 
HOME i RETURN 

2000 HTAB 20 - LEN <TS> / 2i PRINT 
TS* RETURN 



Il programma che segue è un data base per 
l'Apple II In grado di gestire migliaia di infor¬ 
mazioni diverse suddivise negli archivi che pre¬ 
ferite. Questo data base usa degli archivi ad 
accesso diretto (random) ed è limitato solo dalla 
capacità di memorizzazione dei singoli dischet¬ 
ti. 

Il programma inizia con una routine principa¬ 
le che lista le possibili opzioni. Ciascuna opzio¬ 
ne ha la sua corrispondente subroutme che co¬ 
stituisce un modulo separato da tutte le altre 
parti del programma. Questi moduli possono 
essere facilmente cambiati o sostituiti senza 
paura di influenzare il comportamento degli al- 


10 

REM 


20 

REM 


100 

DS - CHRS < 4 > 


103 

DIM CS< 7) , C l*/.< 7) , 
) :CH - 0 

C2X<7),FS< 5 

110 

HOME 1 PRINT *(I) 

INIZiALIZZ 


ARE UN NUOVO ARCHIVIO* 

120 

PRINT *<C) CARICARE UN ARCHI 
VIO ESISTENTE *\ 

130 

GET ASi PRINT AS 


140 

IF AS - *C* THEN 
i GOTO 200 

GOSUB 1000 

130 

IF AS * * I * THEN 
i GOTO 200 

GOSUb 1300 

160 

GOTO 130 


200 

POKE 216,0i HOME 

i PRINT * < R 


> REGISTRARE L'ARCHIVIO ATTU 
ALE* 


tri moduli rendendo facile l'aggiornamento e 
la personalizzazione del programma di data 
base. 

La struttura effettiva delle informazioni può es¬ 
sere vista come una tabella di righe e colonne. 
Ciascuna riga è un record del data base men¬ 
tre ciascuna colonna della tabella costituisce 
un campo (elemento) del record. I record so¬ 
no effettivamente memorizzati sul dischetto e 
vengono portati in memoria solo nel momento 
in cui sono necessari per l'elaborazione. 
Usate il data base per organizzare le vostre 
informazioni e vedrete che il lavoro fatto darà 


1 SUOI 

frutti! 




220 

PRINT 

•<s> 

STAMPARE* 


230 

PRINT 

" < A) 

AGGIUNGERE RECORD 


S* 




240 

PRINT 

D* 

•<c> 

CAMBIARE UN 

RECUR 

230 

PR1NT 

D“ 

* (T) 

TOGLIERE UN 

RECOR 

260 

PRINT 

^<0>* 

ORDINARE* 


270 

PRINT 
IVI * 

* < E) 

ELENCO DEGLI 

ARCH 

2B0 

PRINT 

* <N) 

NUOVO ARCHIVIO* 

290 

PRINT 

* <F> 

FINE* 


295 

PRINT 

i PRINT -PRESENTI 

* ;NI 


♦ li' 

• RECORDS, SPAZIO 

PER * 


sMX - 

NI - 

1 


300 

GET ASi PRINT ASi PRINT 
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320 

IF Al ■ ‘R" 

THEN 

GOSUB 

2000 

1590 

INPUT "LUNGHEZZA MAX i "j 


x GOTO 200 

» 




J 

330 

IF A* - “S" 

THEN 

GOSUB 

3000 

1600 

B*/.< I ♦ 1 ) * BX< I ) ♦ J ♦ 1 


i GOTO 200 




1610 

NEXT I 

340 

|F A4 - “A“ 

THtN 

GOSUB 

4000 

1620 

INPUT "N.RO CAMPO PIU' LUNG 


t GOTO 200 





0 DA ORDINARE9";J•J « J - li 

350 

1F A4 • "C" 

THEN 

SB - 3i 

GOSUB 


IF J < 0 OR J > NH THEN 162 


6000x GOTO 

200 




0 

360 

IF A4 - "T" 

THEN 

SB - 4 x FS - 

1630 

J ■ BX<J ♦ 1) - BX(J) - 1iMX 


lx GOSUB 8000t GOTO 200 



» INT << FRE <0> - 2000) / 

370 

IF A4 - "0" 

THEN 

GOSUB 

7000 


<J ♦ 2)) 


x GOTO 200 




1640 

DIM I4(MX>,P4(MX) 

380 

IF A4 - "E" 

THEN 

GOSUB 

600 i 

1650 

PRINT D4;“OPEN";F4 ♦ ".DAT, 


GOTO 200 





L" }B’/.<NH ♦ 1 ) 

400 

IF A4 - "F" 

OR A4 - "N" 

THEN 

1660 

SS ■ 0i RETURN 


500 




1699 

REM 

410 

GOTO 200 




1700 

PRINT :R « PX<I) 

500 

1F SS - 1 THEN 530 


1710 

FOR J1 a 0 TO NH 

520 

GOSUB 2000 




1720 

PRINT D4;“READ";F4 ♦ ".DAT, 

530 

PRINT D4|"CLOSE" 

|F4 ♦ " • 

DAT" 


R" J R l * ,B" ) BX< J1 ) 


540 

550 

ÓÙC 

999 

1000 
1010 
1020 
1030 

1040 

1130 

1 1 40 

1150 
1 160 
1 170 

1 180 

1 190 

1200 

1210 

1220 

1230 

1299 

1300 
1310 

1320 

1330 

1340 

1499 

1500 

1510 

1520 

1530 

1540 

1560 

1570 

1580 


1F A4 - *N" THEN CLEAR i GOTO 
100 
END 

PRINT D4j *CATALQG"x GET A*i RETURN!';: 
REM 1 1800 

INPUT * QUALE ? *|F4 
ONERR GOTO 1230 
PRINT D4|"OPEN"|F4|".HDG" 

PRINT D4;■READ*|F4 ♦ ■.HDG" 


INPUT NH,NI,MX,LK 
DIM H4(NH> .B/.(NH ♦ 1>.I4(MX 
) ,P‘/.<MX> ,TI4<NH> 

FOR I - 0 TO NHi INPUT H4<I 
),BX<1)i NEXT 
INPUT B7.<NH ♦ 1) 

IF NI *» - l THEN 1 180 

FOR I » 0 TO NI i INPUT P*/.< I 
> l NEXT 

PRINT D4;"CLOSE";F4 ♦ ".HOG 

m 

PRINT D4 j"OPEN"j F4 ♦ ".DAT, 
L M |BX<NH ♦ 1> 

IF NI - - 1 THEN 1220 

GOSUB 1300 
SS = 11 RETURN 
PRINT "NON TROVATO": GET A4 
i POKE 216,Oi GOTO 110 
REM 

PRINT : FOR I » 0 TO NI 
PRINT D4|"READ";F4 ♦ ".DAT, 
R" |PX< l>;“,B" ; B*/.< CH) 

INPUT 14(1) 

NEXT 

PRINT D4x RETURN 
REM 

INPUT "NOME ARCHIVIO ? x “j 

F4 

IF F4 - THEN 1500 
INPUT "N.RO CAMPI ? i ";NH 
IF NH < l THEN 1520 
NH « NH - 1 INI - - 1 ILK » - 

1 

DIM H4<NH),BX<NH ♦ 1),TI4<N 
H)iBX(O) » 0 
FOR I « 0 TO NH 
PRINT “CAMPO N.RO ";I ♦ 1 ;i 
INPUT “ i “;H4<I) 


1 730 INPUT T14< J1) 

1740 NEXT 

1750 PRINT D4: RETURN 
1799 REM 

PRINT ! FOR J1 * 0 TO NH 
1810 PRINT D4 | "UIR1TE" ;F4 ♦ “.DAT 
, R" j R ; " ,B" j BX < J 1 ) 

1820 PRINT T14< Jl) 

1830 NEXT 

1840 PRINT D4s RETURN 

1999 REM 

2000 PRINT i ONERR GOTO 2290 
2010 PRINT D4|“OPEN"|F4 ♦ “.HDG" 

2020 PRINT D4;“URITE"|F4 ♦ ■.HDG 

■ 

2030 PRINT NH: PRINT NIi PRINT M 
X: PRINT LK 

2040 FOR I * 0 TO NH: PRINT H4(I 
)s PRINT BX<I)s NEXT 
2050 PRINT BXCNH t 1) 

2060 IF NI * - 1 THEN 2270 
2070 FOR 1 «= 0 TO NI ì PRINT P*/.( 1 
)* NEXT 

2270 PRINT D4;“CLÙ3E";F4 ♦ ".HDG 
• •• 

2280 SS «i l i RETURN 

2290 PRINT “ERRORE DISCO •!!": GET 
* A4x GOTO 200 
2299 REM 

3000 IF NI » - 1 THEN GOSUB 90 

00i RETURN 

3005 PRINT "<S> SELEZIONE FORMAT 

Ù, 0 (D) DEFAULT"ji GET A*t PRI1 


300 o 

3007 

3008 
3010 

3020 

3030 

3040 


IF A* » *S" THEN GOSUB 100 
OOiFS - 2i GOTO 3010 
IF Hi < > “D" THEN 3005 

Fó - 1 

PRINT "(V) VIDEO, 0 (S) 

STAMPANTE" |« GET A*: PRINT 
IF Al ■ *S" THEN SB - 2* GOTO 
3050 

1F A* < > "V" THEN 3010 

SB * 1 : PRINT i PRINT "<ESC> 
PER INTERRÓMPERE LA STAMPA 
E RITORNARE AL MENU'* I PRINT 
"QUALSIASI ALTRO TASTO PER C 
CiNTlNUARE": PRINT 
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3050 PR1NT "< PREMERE UN TASTO > 

“s GET Af: GOSUB 8010 
31Ou RETURN 
U299 REM 

3300 IF SB — 2 THEN PRINT Df,“P 
R# 1 * 

3310 01^1 FS GOSUB 3700,3800 

3320 1F SB - 2 THEN PRINT Df , “ P 
RWO*: GOTO 3350 

3340 IF SB < >4 THEN GET Af : IF 

A* = CHRf (27) THEN RS « 1 
3350 RETURN 

3 699 REM 

3700 PRINT : PRINT -RECORD " -, I ♦ 

1 ; PRINT 

3710 FOR J 0 TÙ NH 
3720 PRINT HfvJ),Ti*(J) 

3730 NE*T J 
3740 RETURN 
37V9 REM 

3800 J = 1:1 = 0:8f = ““ 

3820 J1 = VAL < MIDI* <Ff<T),J,i) 

) l J » J ♦ 1 

3830 IF J1 <5 THEN N = VAL < MI Df 
(Ff(T)•J,2)):J » J ♦ 2 

3840 UN J1 GOTO 385U,3860,3870,3 
890,3910,3970 

3850 Af » H»<N>: bOTù 3950 
3860 A* = TIfCN): GOTO 3950 
3870 Bf - LEFlf «.6*,N - 1): IF LEN 
(Bi) < N - 1 THEN FOR J2.« 

LEN (bi) TO N - 2:B$ = B$ ♦ 

“ - : NEXT 
38h0 GOIO 3980 

3890 PRINT Bf: IF N > 1 THEN FOR 
J2 — 2 TO N; PRINT : NEXT 
3900 Bf = GOTO 39ó0 

3910 IF J > LEN (Ff(T>) THEN T = 

T ♦ 1 : J - 1 
3920 J2 = J 

3930 IF MIDf (Ff(T>,J2,l> < > 

“! H THEN J2 — J2 ♦ 1 : GOTO 3 
930 

3940 Af = MIO* (Ff(T),J,J2 - J): 

J = J2 ♦ 1 
3950 Bf = Bf ♦ Af 

3960 IF J > LEN (Ff(T)) THEN T - 
T ♦ 1 * J * 1 
3965 GOTO 3820 
3970 PRINT 6*: RETURN 

3999 REM 

4000 SS * 0:NI » NI ♦ 1 

4005 PRINT i PRINT “RECORD “ |NI ♦ 

- 1 : PRINT 

4010 FOR J - 0 TO NH 
4020 GOSUb 4500 
4030 NEXT J 

4040 IF LK - - 1 THEN R = NI : GOTO 

4080 

4050 R = LK 

4060 PRINT Df;"READ"|Ff ♦ “.DAT, 

K" ;R 

4070 INPUT LKi PRINT Df 
40b0 GOSUB 1 B00 l PXCNl ) - RiIHNI 
> *• TIfCCH) 

4090 RETURN 

4499 REM 

4500 T = B/.CJ ♦ 1) - BZ < J) - 1 


4510 PRINT H*<.J);s INPUT “ i “;T 
lf(J> ' 

4540 IF LEN (Tli(J)') > T THEN T 
If (J> * LEFTf (TIf(J) ,T) 

4550 RETURN 
4999 REM 

500U PRINT i PRINT "<M) MODIFICA 
RE <C> CONFERMARE 0 “i PRINT 
“<T> CONFERMARE LA PARTE RIM 
ANENTE- 

5030 PRINT : PRINT “RECORD -;l ♦ 

1 

5040 CS * 1 : RS = Oi FOR J = 0 TO 
NH 

5050 PRINT i PRINT Hf ( J > ; “ a " , TI f 

(J)j- 

5055 IF RS » 1 THEN PRINT i GOTO 
5090 

5060 GET Af: IF Af < > “M“ AND 

Af < > “C" AND A* < > M T“ THEN 
5060 

5070 PRINT Af: IF A* = "C* THEN 
5090 

5075 IF A* = "T" THEN RS « I : GOTO 
5090 

5080 GOSUB 4500 
5085 CS = 0 
5090 NEXT J 
5095 RS » 0 

5100 IF CS - 0 THEN GOSUB 1800: 

If ( I) - Tlf(CH> 

5110 RETURN 

5999 REM 

6000 PRINT : PRINT “CONFERMARE C 
ANELLAZIONE RECORD (S/N) -, 

60 70 GET AH IF Al < > “S“ AND 

Af* < > “N“ THEN 60 70 

6080 PRINT A*: IF Al ■ "N“ THEN 
6150 

6090 PRINT Df,-URITE*, Ff ♦ “.DAT 
,R“ ;P*/.( I ) 

6100 PRINT LK: PRINT Df 
6110 LK = P*/.< I ) 

6120 FOR II = I ♦ 1 TO NI 

61 30 I$(I1 - 1) = If < 11 ) :P*/.( 11 - 

1 ) * P’/.( 1 1 ) 

6135 NEXT II 

6140 NI = NI - 1 : SS = 0 : I = 1-1 

6150 RETURN 

6999 REM 

7000 IF MI = - l THEN GOSUB 90 

00: RETURN 

7010 PRINT : FOR J « 0 TO NH 
7020 PRINT “(“,J ♦ 1|"> -;Hf(J) 

7030 NEXT J 

7040 INPUT "N.RO CAMPO Da ORDINA 
RE : “;J1 
7045 J1 - J1 - 1 

7050 IF J1 < 0 OR J1 > NH THEN RETUF 
7055 1F J1 ( > CH THEN CH * Jl: 

GOSUb 1300 

7060 PRINT "(A) ASCENDENTE 0 
(D) DI SCENDENTE “ : GET Af* 

7070 IF A* » “A“ THEN A = 1: GOTO 
7100 

7080 IF Af = “D“ THEN A = 2: GOTO 
7100 
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7090 
7100 
71 10 
7120 
7122 
7125 
7130 

7135 

7140 

7145 
7150 
71 6U 

71 70 

7180 

7200 

7999 

8000 

8010 

8015 


80 20 
8030 
8035 
8040 


8045 

3050 
80 60 


80 70 
8080 


8090 

8095 

8100 

8105 

8110 

8120 

8130 

8140 

8150 

8160 


8170 

8200 

8210 

8220 


GOTO 7060 

FOR I - 0 Tù NI - 1 
T = 1 

FOR I 1 « T t 1 TO NI 
PRINT I ; “ "|I1* 

ON A GOTO 7130,7140 
IF IS< I 1 ) < IS<T> THEN T * 

I 1 

GOTO 7145 

IF 1S<il> > IS<T> THEN T = 

1 1 

NEXT I 1 

IF T « I THEN 7180 
TS = l*<T>il*<T> - I*<I):IS< 

I > • TS 

J1 » P7.<T> :PX<T> * P*/.< I ) sP7.< 

I > « J1 
NEXT I 

SS = Ox RETURN 
REM 

IF NI » - 1 THEN GOSUB 90 

00: RETURN 

II =* 0:12 » NI t J = 0:Cr/.<0> = 

- I:bS = l 

HOME : PRINT "SCEGLIERE TRA 
l SEGUENTI CRITERI x"x PRINT 

PRINT "0) NUMERO DI RECORD" 

FOR I » 0 TO NH: PRINT I ♦ 
li") "jHS<I>i NEXT I 
PRINT i PRINT NH ♦ 2j") INI 
ZIARE" 

VTAB 21x INPUT "SCELTA x "; 

I : IF I < 0 OR I > NH ♦ 2 THEN 
6040 

IF I » NH ♦ 2 THEN C1X<J> - 

- 1x GOTO 8150 

cr/.<j> = 1-1 

VTAB 22x PRINT "<1> MINORE 
< 2) UGUALE (3) MAGGIORE 
" : GET A* x 1F A* < "1" OR Al 
> "3" THEN 8060 
C27.<J> « VAL <AS> 

VTAB 23x PRINT "CAMPO DI RI 
FERIMENTOx";x IF C1X<J> - - 

1 THEN 8100 

INPUT " "|CS(J>iJ * J ♦ li IF 
J > 7 THEN 8160 
GOTO 8015 

INPUT " "; I : IF I < 1 OR I > 

NI ♦ 1 THEN 8100 
1 = 1-1 

IF C2*/.<J> » 1 THEN 12 » I 
IF C2'/.<J> = 2 THEN II = lxl 

2 » 1 

IF -C2X<J> * 3 THEN I 1 » I 
GOTO 8015 
IF J < 2 THEN 8200 
VTAB 22x PRINT "1> TUTTE LE 
CONDIZIONI VERIFICATE M : PRINT 
"2> SOLO ALCUNE CONDIZIONI V 
ERIFICATE"» GET A*i IF AS < 

"1" OR A* > "2" THEN 8160 
BS » VAL <AS> 

RS - OiJl - Cl*/.(0) 

DS * 0 x FOR J - 0 TO 7 
IF C! ( /.<J) ■ - 1 THEN J - 7 

: GOTO 8240 


ti23u 

IF Ji 

- 2 

< > CT/.<J> THEN 

Jl 

* 

8240 

NEXT 




8245 

IF J1 

> - 1 AND J1 < 

> 

CH 


THEN 

CH * J1 : GOSUB 1300 


8246 

IF J1 

= - 2 THEN DS » 

1 


8250 

1 = 11 

- 1 : FOR 13=11 

TO 

I 


2:1 « 

I ♦ 1- 



8251 

IF DS 

= 0 THEN TIS(CH) 

az 

IS 


<I): GOTO 8255 



8252 

GOSUB 

1700 



8255 

AS » 0 

: FOR J - 0 TO 7 



8260 

IF C17.(J) = - 1 THEN 

J = 

7 


: GOTO 8345 


8270 ON C2X<J> GOTO 8280,8290,83 
10 

8280 IF TI*<C1X<J>> < « CS<J> THEN 

8330 

8285 GOTO 8340 

8290 IF TIS<CT/.< J>> = CS<J) THEN 
8330 

8295 IF RIGHTS <CS<J),I> < > " 

*" THEN 8340 

8298 T = LEN <CS<J>> - 1: IF LEN 
<T1*<CIX<J>>> < T THEN 8340 
8302 IF LEFTS <T I S<CIX< J> ) ,T> = 

LEFTS < CS< J ) , T ) THEN 8330 
8305 GOTO 8340 

8310 IF TlS<CIX<J)> > « CS<J> THEN 

8330 

8320 GOTO 8340 

8330 IF BS - 2 THEN AS « 1 x J = 7 
8335 GOTO 8345 

8340 IF BS » 1 THEN A3 » 2lJ ■ 7 
8345 NEXT J 

8350 IF AS * 0 AND BS = l THEN 8 
355 

8352 IF AS < > l THEN 8380 

8355 IF DS - 0 THEN GOSUB 1700 

8360 IF SB < >3 THEN GOSUB 33 

00 

8365 IF SB - 3 THEN GOSUB 5000 

8370 IF SB « 4 THEN GOSUB 6000 

8375 IF RS - 1 THEN 13 « 12 

8380 NEXT 13 

8390 PRINT : PRINT "FATTO GET 

A*: PRINT 

8400 RETURN 

8999 REM 

9000 PRINT "NESSUN DATO IN MEMOR 
IA" 

9010 FOR I » 1 TO 10001 NEXT » RETURN 

9999 REM 

10000 IF FS<0> = THEN 10040 
10010 PRINT "STESSO FORMATO <S/N 

> ? •" 5 : GET ASx PRINT 
100 20 IF Ai » *8' THEN RETURN 
10030 IF A$ < > "N" THEN 10010 

10040 PRINT "(U) UTILIZZARE UN F 
URTATO ESISTENTE, 0 <C> CRE 

ARE FORMATO"|t GET A* x PRINT 

10050 IF AS - "C" THEN 10200 
10060 IF AS < > "U" THEN 10040 

10090 ONERR GOTO 10170 


io 


10100 

INPUT 

"QUALE ? i "|A* 


10110 

m 

PRINT 

D*;"0PEN";A* ♦ " 

.FMT 

10120 

M 

PRINT 

D*i"READ"jAS ♦ " 

.FMT 

10130 

INPUT 

NF 


10140 

FOR J 

* 0 TO NFi INPUT 

F*< 

J): NEXT 


10150 

PRINT 

D* | " CLOSE" jA'i ♦ 

" .FM 

T 

• 



10160 

RETURN , 


10170 

PRINT 

"FORMATO INESISTENTE 


"i GET A*i GOTO 200 
10200 NF * OiJ * 0:F*<0> - "* 

10210 HOME i PRINT “PARTENDO DAL 
L'ANGOLO IN ALTO A SINISTRA 
DESCRIVERE CIASCUNA RIGA" 
10220 PRINT "1sTESTATA 2: 

CAMPO 3;TABUL 4 : PROSSIMA 
RIGA 5iDI CITURA óiFINE 

": INPUT J1 

10230 IF J1 < l CR J1 > 6 THEN 1 
0220 

10240 F*<NF> = FS<NF> ♦ STRS <J1 
> : J * J ♦ 1 

10250 GN J1 GOTO 10260,10260,103 
00,10300,10350,10400 
10260 FOR T *= 0 TO NH: PRINT T ♦ 
1 ;") ";H*<T>i NEXT 
10270 INPUT "QUALE ? " ;T:T = T - 
1 : IF T < 0 OR T > NH THEN 1 
0270 


10280 GOTO 10310 

10300 INPUT "QUANTE ? ";T: IF T < 

1 OR T > 9? THEN PRINT "FUO 
RI LIMITI": GOTO 10300 

10310 A* - STR* <T)s IF T < 10 THEN 
A* ■ "0" ♦ At 

10320 F%<NF> * F*(NF) ♦ AS:J » J ♦ 

2 

10330 GOTO 10380 

10350 INPUT “STRINGA s "jAHA* » 

A* ♦ "!" 

10360 IF LEN <A*> ♦ J > 255 THEN 

NF * NF ♦ i;J * 0;F*<NF> - " 

■ 

10370 F*<NF> = FS<NF> ♦ AS:J « J ♦ 
LEN <A*) 

10380 IF J > 252 THEN NF * NF ♦ 

1 sJ * 0iF*<NF) - "" 

10390 GOTO 10220 

10400 INPUT "NOME FORMATO ! ";A* 

10405 ONERR GOTO 10460 

10410 PRINT D*;"0PEN"iA* ♦ “.FMT 

m 

10420 PRINT D*;"WRITE";A* ♦ ".FM 
T" 

10430 PRINT NF i FOR J = 0 TO NF: 

PRINT F*<J>i NEXT 
10440 PRINT D*;"CLOSE"jA* ♦ ".FM 
T “ 

10450 RETURN 

10460 PRINT "ERRORE DISCO !•!": GET 
A*: GOSUB 10400 
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Kentucky derby 


b TI-99/4A 

' -ri, 


Ogni orino, frate della pubblicità o no, si cerca 
di rivalutare il TOTIP, fratello minore dell’irrag¬ 
giungibile caccia al 13 totocalcistica. 

Ebbene, con la semplice digitazione di questo 
nemmeno troppo lungo listato in TI Extended 
avrete la possibilità di simulare le fatidiche corse 
equine che tanto denaro fanno perdere o vin¬ 
cere ogni giorno nel mondo. 

Disporrete all’inizio di ben 100$ (con i tempi 
che corrono ho preferito questa moneta alla 


ìoo !*«**•************* 

Ì10 ! * KENTUCKY DERBY * 

1 20 |**t***t#É*.«**t*t* 

130 «TI 99 EXT.BASIC 

140 KANDOMIZ E 

150 CALL CLEAR 

160 PR1NT "KENTUCKY DERBY" 

170 PRINT "" 

180 PRINT "" 

190 CREDIT*100 

2 00 ! SCOMMESSE 
210 SC=0 

220 PRINT "DISPONI DI"; CREDIT;"S 

n 

230 IF CREOIT*0 THEN 530 

240 PRINT "SU UUALE CAVALLO VUOI 

ii 

250 PRINT "PUNTARE?" 

260 TK = 0 

270 PRINT "LE QUOTE SONO:" 

280 POR A*1 TO 3 

290 RA(A)-INT(RND*5+1 ) 

300 PRINT " CAVALLO";A;":";R 

A(A);"A 1" 

310 NEXT A 
320 PRINT 
330 INPUT PNR 

340 IF (PNR< 1 ) + (PNR>3)00 THEN 3 
30 

350 INPUT "QUANTO VUOI PUNTARE? 

" : HM 

360 IF I1M<*CREDIT THEN 400 
370 PRINT "NON DISPONI DI TUTTO 
QUESTO DENARO 1" 

380 GOTO 350 
390 ! CORSA 
400 GOSUB 550 
410 GOSUB 790 

420 PW 3 -((PP(1)>PP(2)AND PP(1)>* 
PP(3))+2*(PP(2)>*PP(3)AND PP(2)> 
PP(1))+3*(PP(3)>PP(1)AND PP(3)>P 
P(2) ) ) 


sempre più svalutata lira, si sarebbe potuto da¬ 
re l'equivalente in ROT, ma con Visentin/ in ag¬ 
guato. sarebbe stato poco conveniente). 
Sarete liberi di puntare quanto volete di que¬ 
sta somma, tenendo conto delle quote pagate 
dai bookmakers su ciascuno dei tre cavalli, se¬ 
condo la vostra convenienza, e vedendovi pa¬ 
gati o tassati (e dagli!) a seconda del risultato 
conquistato dal vostro cavallo, 
buona fortuna. 


4 30 IF TR< 4 THEN 410 
440 CALL DELSPRITE(ALL) 

450 PRINT "IL CAVALLO VINCENTE E 
• " ; PW 

460 IF PWOPNR THEN 500 

470 CREDIT-CREDIT^(HA(PW)- 1) MiM 

480 PRINT "HAI VINTO" 

490 GOTO 200 

500 PRINT "HAI PERSO" 

510 CREDIT-CREDIT-HM 
520 GOTO 200 

530 PRINT "NON HAI PIU' DENARO P 
ER MANTENERTI" 

540 END 

550 ìINIZIALIZZAZIONE CAVALLI 
560 CALL CLEAR 

570 CALL CHAR(60,"00040EFF785C82 
00 ") 

580 CALL CHAR(61,"000C1K383E7830 
1 0") 

590 CALL CHAR(88,"AA55AA55AA55AA 
55") 

600 CALL CHAR(62,"01010101010101 

01 ") 

610 MUL*1/RA(1)+1/RA(2)+1/RA(3) 

620 MUL-1/MUL 
6 30 CH = RND 
640 FOR A=1 TO 3 
650 J(A)-0 

660 VP(A)-2.7+SGN(RND-0.5)/I0 
670 IF CH< 3 0 THEN W(A)*0 :: GOTO 
700 

680 W(A)*CH<(MUL/RA(A)) 

690 CH*CH- iMUL/RA (A)) 

700 CALL SPKITE(#A,60,2,48+24*A, 
32) 

710 CALL SPRITE(|A+6,88,3,48 + 24* 
A,120) 

720 CALL SPRITE(#A+ 3,62, 2 ,48 + 24* 
A,2 30) 
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730 NEXT A 

740 tPARTENZA CAVALLI 

750 FOR A*1 TO 3 

760 CALL MOTION( # A, 0 ,VP(A)) 

770 NEXT A 
780 RETURN 

790 1 MOSSA DI UN PASSO 

800 SC*SCfl 

810 FOR A=1 TO 3 

820 IF SC>*30 AND W (A) AND PWOA 

THEN VP ( A) - VP ( A) + . 5 :: GOTO 840 

830 VP(A)*VP(A)+ SGN(RND-0•5)/10+ 
(VP(A)>3.0)-(VP(A)<2.5) 

840 CALL POSITION(#A,X,PP(A)) 

850 HV= 0 

860 IF PP(A)<95 OR PP(A)>-130 TH 
EN 870 ELSE 900 
870 IF X>(48+24*A)THEN HV*-1 
880 IF X<(48+24*A)THEN HV-1 


890 GOTO 920 

900 IF PP(A)>112 THEN CALL SPRIT 
E(#A,60,2,X,pp(A) » VP(A) , VP(A))E 
LSE CALL SPRITE(#A,61,2,X,PP(A), 
-VP (A) ,VP(A)) 

910 GOTO 930 

920 CALL MOTION(#A,HV,VP(A)) 

930 F(A)*0 

940 IF J (A) THEN 960 ELSE CALL CO 
INC(#A,#A+6,50,J(A)) 

950 GOTO 980 

960 CALL COINC(#A,IA+3,10,F(A)) 

970 IF F (A) THEN TR=*TR+1 :: J(A)- 
0 

980 NEXT A 

990 FOR A 5 * 1 TO 3 

1 000 CALL POS ITION (# A,X,PP(A) ) 

1010 NEXT A 

1020 RETURN 






'ty TI-99/4A 






Questo listato è la degna continuazione di quel¬ 
lo che avevamo già pubblicato con il titolo ' ‘ Di¬ 
visioni 

Avrete a disposizione ben sette tra i più comu¬ 
ni ostacoli con cui si ha a che fare quando si 
utilizzano le famigerate frazioni: 


100 rem **************** 

110 REM ** FRAZIONI ** 

120 REM **************** 

130 REM TI-99 BASIC 

190 T 3 300 
200 T2=l50 

210 CALL CHAR(128,"F") 

220 CALL COLORI 13,7,7) 

230 CALL CHAR(136,"F") 

240 CALL COLOR(14,11,11) 

250 CALL CHAR(144,"F") 

260 CALL COLOR(15,5,5) 

270 CALL CHAR(152, "F") 

280 CALL COLOR(16,13,13) 

290 CALL CLEAR 

300 CALL COLOR(2,16,7) 

310 DATA 80,65,80,69,82,83,79,70 
,84 

320 RESTORE 310 

330 FOR Y«9 TO 25 STEP 2 

340 READ L 

350 CALL HCHAR(7,Y,L) 

360 NEXT Y 


Equivalenza, semplificazione, moltiplicazione, 
divisione ecc. 

Inutile spiegare come utilizzare il programma 
perché ad ogni passo sarete guidati dal vostro 
TI (che ormai ha ben poco da invidiare ai più 
ostici maestri in carne ed ossa). 


370 DATA 80,82,69,83,69,78,84,65 
,58 

380.RESTORE 370 

390 FOR Y*9 TO 25 STEP 2 

400 READ L 

410 CALL HCHAR(10,Y,L) 

420 NEXT Y 

430 GOSUB 3270 

440 CALL HCHAR(14,10,42,15) 

450 CALL VCHAR(15,24,42, 3) 

460 CALL VCHAR(15,10,42,3) 

470 CALL HCHAR(18,10,42,15) 

480 DATA 76,69,32,70,82,65,90,73 

,79,78,73 

490 RESTORE 480 

500 FOR Y=12 TO 22 

510 READ L 

520 CALL HCHAR(16,Y,L) 

530 NEXT Y 

540 FOR 1*1 TO 30 

550 CALL COLOR(2,7,16) 

560 CALL COLOR(2,16,7) 

570 NEXT I 


n 















580 GOSUB 3380 

590 CALL COLOR(2,2,1) 

600 CALL CLEAR 

610 BRINT "1 EQUIVALENZA" 

620 PRINT "2 SEMPLIFICAZIONE" 

630 PRINT "3 MOLTIPLICAZIONE" 

640 PRINT "4 DIVISIONE" 

650 PRINT "5 SOMMA DENOM. COMUNI 

«t 

660 PRINT "6 SOMMA DENOM. DIFFER 
ENTI" 

670 PRINT "7 COMPARAZIONE":::: 
680 GOSUB 4890 
690 GOSUB 3470 

700 CALL KEY(0,SCELTA,STATUS) 

710 IF STATUS<*0 THEN 700 
720 IF SCELTA< 49 THEN 700 
730 IF SCELTA>55 THEN 700 
740 SCELTA«SCELTA-48 
750 CALL CLEAR 

760 ON SCELTA GOTO 770,1350,1660 

,2400,2660,2940,5060 

770 DATA 69,81,85,73,86,65,76,69 

,78,90,65 

780 RESTORE 770 

790 CALL CLEAR 

800 FOR Y*1I TO 21 

810 READ L 

820 CALL HCHAR(9,Y,L) 

830 NEXT Y 

840 CALL CHAR(96,"000000FF") 

850 GOSUB 4130 

860 DATA 14,13,65,15,13,96,16,13 
,66,15,16,61,14,19,67,15,19,96,1 
6,19,68 

870 RESTORE 860 
880 FOR 1*1 TO 7 
890 READ X,Y,L 
900 CALL HCHAR(X,Y,L) 

910 NEXT I 
920 GOSUB 3550 

930 INPUT "QUAL E' L'INCOGNITA?" 
:X$ 

940 IF X$ *"A" THEN 1000 
950 IF X$-"B" THEN 1060 
960 IF X$="C" THEN 1120 
970 IF X$ = "D " THEN 1180 
980 PRINT "SCEGLI A,B,C OPPURE 0 

M 

990 GOTO 930 

1000 INPUT "INSERISCI B=":B 
1010 INPUT "INSERISCI C«":C 
1020 INPUT "INSERISCI D«":D 
1030 A=fì*C/D+.005 
1040 A= 1E- 2 *(INT(A*1E2)) 

1050 GOTO 1230 

1060 INPUT "IL VALORE DI A*":A 
1070 INPUT "IL VALORE DI C=":C 
1080 INPUT "IL VALORE DI D=":D 
1090 B=A‘D/C+.005 
1100 B=*l E- 2* ( INT ( B* 1 E2) ) 

1110 GOTO 1230 

1120 INPUT "INSERISCI A*":A 

1130 INPUT "INSERISCI B=":B 

1140 INPUT "INSERISCI D«":D 

1 150 C=A*D/B+.00 5 

1160 C*1 E-2‘(INT(C*1E2)) 

1170 GOTO 1230 


1180 INPUT "IL VALORE DI A-":A 
1190 INPUT "IL VALORE DI B*":B 
1200 INPUT "IL VALORE DI C*":C 
1210 D*B*C/A+.005 
1 220 D*1 E-2*(INT(D* 1 E2) ) 

1230 CALL CLEAR 

1240 PRINT " ";A,C 

1250 PRINT " 


1 260 PRINT " " ; B,D: : : • 

1270 PRINT " 1. PER PROSSIMO PRO 
BLEMA" 

1280 PRINT " 2. PER FINIRE" 

1290 CALL KEY(0,K,STATUS) 

1 300 IF STATUS< a 0 THEN 1290 
1310 IF K< >49 THEN 1330 
1320 CALL CLEAR 
1325 GOTO 780 
1 330 IF K*50 THEN 590 
1 340 GOTO l290 

1350 PRINT "‘SEMPLIFICAZIONE FRA 
ZIONARIA" . 

1 360 GOSUB 4230 
1370 PRINT :: 

1380 GOSUB 3650 

1390 INPUT "NUMERATORE?":NS 

1400 INPUT "DENOMINATORE?":DS 

1410 IF DS>NS THEN 1440 

1420 PLIM-DS 

1430 GOTO 1450 

1440 PLIM»NS 

1450 S*-2 

1460 IF DS/2*INT(DS/2)THEN 1480 
1470 IF NS/2*INT(NS/2)THEN 1490 


1480 S*-1 

1 490 FOR P= PLIM TO 2 STEP S 
1500 A*NS/P 

1510 IF AOINT(A) THEN 1540 
1520 B=DS/P 

1530 IF B*INT(B)THEN 1570 
1540 NEXT P 

1550 PRINT :NS;"/";DS;" NON SI P 
UO'SEMPLIFICARE" 

1560 GOTO 1580 

1570 PRINT :NS;;DS;" = ";A;"/ 

•• • Q • • • • 

§ U • • • • 

1 580 PRINT " 1. PER PROSSIMO PRO 
BLEMA" 

1590 PRINT " 2. PER FINIRE" 

1600 CALL KEY(0,K,STATUS) 

1610 IF STATUS< = 0 THEN 1600 
1620 IF K<>49 THEN 1640 
1630 CALL CLEAR 
1635 GOTO 1350 
1 640 IF K= 50 THEN 590 
1650 GOTO 1600 

1660 PRINT "MOLTIPLICAZIONE TRA 
FRAZIONI":: : : 

1670 GOSUB 4430 
1680 GOSUB 3750 

1690 INPUT "QUANTE FRAZIONI? ":F 


1700 FOR I«1 TO F 

1710 PRINT "FRAZIONE #"?I 

1 720 INPUT " NUMERATORE =* " : NN 

(I) 
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1730 INPUT " DENOMINATORE = M : 
DD(I) 

1740 NEXT I 
1750 TO-1 
1760 TD*1 
1770 FOR 1*1 TO F 
17d0 TN-TN*NN(I) 

1790 TD=TO*DD(I) 

1800 NEXT I 

1810 PRINT MOLTIPLICAZION 

E * * " : : 

1820 GOSUB 1920 
1830 GOSUB 2190 

1 840 PRINT : :" 1. PER PROSSIMO P 
ROBLEMA" 

1850 PRINT " 2. PER FINIRE" 

1860 CALL KEY( 0 , K ,STATUS) 

1 870 IF STATUS<»0 THEN 1860 
I 880 IF K< >4 9 THEN 1900 
1890 CALL CLEAR 
1895 GOTO 1660 
1 900 IF K* 50 THEN 590 
1910 GOTO 18660 
1920 FOR 1-1 TO F 
1 930 PRINT NN(I);; DO(I) 

1940 NEXT I 

1950 PRINT " " 

1960 RETURN 

1970 IF TNCTD THEN 2000 
1980 PLIM-TD 
1990 GOTO 2010 
2000 PLIM=TN 

2010 FOR P*PLIM TO 2 STEP -1 
2020 A=TN/P 

2030 IF AOINT(A) THEN 2060 
2040 B=TD/P 

2050 IF B*INT(B)THEN 2090 
2060 NEXT P 
2070 A = TN 
2080 B*TD 

2090 IF A> = B THEN 2120 
2100 PRINT : : A ;"/";B: : : : 

2110 GOTO 2160 

2120 IF B*1 THEN 2170 

2130 C*INT(A/B) 

2140 R=A-C*tì 

2150 PRINT C;" ";R;"/";B: : : : 

2160 RETURN 
21 70 PRINT A:: : : 

2180 RETURN 

21 90 FOR 1*1 TO F 

2200 P*DD(I) 

2210 A-TN/P 

2220 IF A<>INT(A)THEN 2270 
2230 B*TD/P 

2240 IF BOINT(B) THEN 2270 

2250 TN = A 

2260 TD*B 

2270 NEXT I 

2280 SW*0 

2290 FOR 1*1 TO F-l 

2300 IF DD(I)< *DD ( 1 + 1)THEN 2350 

2310 J*DD(I) 

2320 DD(I)«DD(X+1) 

2330 DD(I+1 ) -J 
2340 SWl«J 


2350 NEXT I 

2360 IF SW*1 THEN 2280 
2370 PLIM-DD(F) 

2380 GOSUB 2010 
2390 RETURN 

2400 PRINT "** DIVISIONE DI FRAZ 
IONI **"::: 

2410 GOSUB 4520 

2420 PRINT "LA PRIMA FRAZIONE E' 

•t 

2430 PRINT "DIVISA PER LA " 

2440 PRINT "SECONDA FRAZIONE":: 

2450 PRINT "(Nl/Dl) / (N2/D2)":: 

2460 GOSUB 3tì30 

2470 INPUT "INSERISCI Ni * ":Nl 

2480 INPUT "INSERISCI Di = ":D1 

2490 INPUT "INSERISCI N2 * ":N2 

2500 INPUT "ENTEK D2 * ":D2 

2510 TN=N1*D2 

2520 TD-D1*N2 

2530 PRINT : ::Nl;"/”;Dl 

2540 PRINT " H : : 

2550 PRINT NT; ,r 7 ir jD2T~ 

2560 PRINT "UGUALI":: 

2570 GOSUB 1970 

2580 PRINT :" 1. PROSSIMO PROBLE 
MA" 

2590 PRINT " 2. PER FINIRE" 

2600 CALL KEY(0,K,STATUS) 

2610 IF STATUS< = 0 THEN 2600 

2620 IF K< >49 THEN 2640 

2630 CALL CLEAR 

2635 GOTO 2400 

2640 IF K* 50 THEN 590 

2650 GOTO 2600 

2660 PRINT "** SOMMA DI FRAZIONI 

* * •« • • 

• • 

2670 GOSUB 4590 

2680 PRINT "QUESTA SEZIONE SOMMA 

ii 

2690 PRINT "FRAZIONI CON LO STES 
SO" 

2700 PRINT "DENOMINATORE."::: 
2710 GOSUB 3910 

2720 INPUT "QUANTE FRAZIONI? ":F 

2730 INPUT "QUAL'E' IL DENOMINAT 
ORE?":TD 

2740 PRINT "SCRIVI I NUMERATORI" 

2750 TN*0 

2760 FOR 1*1 TO F 

2770 INPUT NN(I) 

2780 TN = TN*NN(I ) 

2790 NEXT I 
2800 FOR 1*1 TO F 
2810 DD(I)«TD 
2820 NEXT*I 
2830 PRINT : : : 

2 8 4 0* GOSUB 1920 
2850 GOSUB 1970 

2860 PRINT " 1. PER PROSSIMO PRO 
BLEMA" 

2870 PRINT " 2. PER FINIRE" 
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2880 CALI. KEY(0,K,STATUS) 

2890 IF STATUS< *0 THEN 2880 

2 90 0 IF K<>49 THEN 2 920 

2910 CALI. CLEAK 

2915 GOTO 2060 

2920 IF K*50 THEN 590 

2930 GOTO 2880 

2 94 0 PRINT SOMMA DI FRAZIONI 

* * •• 

2950 GOSUB 4740 

2960 PRINT : : :"QUESTA SEZIONE SO 
MMA" 

2970 PRINT "FRAZIONI CHE POSSONO 

•i 

2980 PRINT "AVERE DIVERSI DENOMI 
NATORI": : : 

2990 GOSUtì 4020 

3000 INPUT "UUANTE FRAZIONI? ":F 

3010 IF F<-5 THEN 3040 

3020 PRINT "MI SPIACE : 5 AL MASS 

IMO" 

3030 GOTO 3000 

3040 TUO 

3050 TD-1 

3060 FOR 1=1 TO F 

3070 PRINT "FRAZIONI";I 

3080 INPUT " NUMERATORE - ";N 

N ( I ) 

3090 INPUT " DENOMINATORE = " 
:DD (I) 

3100 TD fc TD* DD(I) 

3110 NEXT I 
3120 PRINT ;; 

3130 FOR 1=1 TO F 
31 40 C=-TD/DD ( I ) 

3150 TN=TN+NN(I)*C 
3160 NEXT I 
3170 GOSUB 1920 
3180 GOSUB 2190 

3190 PRINT " 1. PER PROSSIMO PRO 
BLEMA" 


Guida per l'input dei 

programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise "andate a capo" delle quali, natu¬ 
ralmente. non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate A. dovrete battere 
CONTROL+A; se trovate —, dovrete battere 
CONTROL + SPAZIO, e così via. 


3200 PRINT " 2. PER FINIRE" 

3210 CALL KEY(0,K,STATUS) 

3220 IF STATUS<-0 THEN 3210 

3230 IF K<>49 THEN 3250 

3240 CALL CLEAR 

3245 GOTO 2940 

3250 IF K= 50 THEN 590 

3260 GOTO 3210 

3270 CALL SOUND(T,880,2,698,5) 
3280 CALL SOUND(T,932,2,784,5) 
3290 CALL 'SOUND(T, 784,2,659,5) 
3300 CALL SOUND(T,880,2,698,5) 
3310 CALL SOUND(T,698,2,587,5) 
3320 CALL SOUND(T2,784,2) 

3330.CALL SOUND(T2,698,2) 

3340 CALL SOUND(T2,659,2) 

3350 CALL SOUND(T2,784,2) 

3360 CALL SOUND(T,698,2,587,5) 
3370 RETURN 

3380 CALL SOUND(T,440,2) 

3390 CALL SOUND(T2, 466,2) 

3400 CALL SOUND(T2,523,2) 

3410 CALL SOUND(T2,587,2) 

3420 CALL SOUND(T2,523,2) 

3430 CALL SOUND(T,466,2) 

3440 CALL SOUND(T,440,2) 

3450 CALL SOUND(1000,392,2,330,5 

) 

3460 RETURN 

3470 CALL SOUND(T2,440,2) 

3480 CALL SOUND(T2,466,2) 

3490 CALL SOUND(T,523,2) 

3500 CALL SOUND(T,440,2) 

3510 CALL SOUND(T, 587,2) 

3520 CALL SOUND(T,784,2) 

3530 CALL SOUND(500,659,2) 

3540 RETURN 

3550 CALL SOUND(T,698,2) 

3560 CALL SOUND(T,932,2) 

3570 CALL SOUND(T,784,2) 

3580 CALL SOUND(T,880,2) 

3590 CALL SOUND(T2,932,2) 

3600 CALL SOUND(T2,880,2) 

3610 CALL SOUND(T2,784,2) 

3620 CALL SOUND(T2,880,2) 

3630 CALL SOUND(500,698,2) 

3640 RETURN 

3650 CALL SOUND(T2,659,2) 

36b0 CALL SOUND(T2,587,2) 

3670 CALL SOUND(T,523,2) 

3680 CALL SOUND(T,440,2) 

3690 CALL SOUND(T,698,2,440,5) 
3700 CALL SOUND(T,784,2,587,5) 
3710 CALL SOUND(T2,698,2,392,5) 
3720 CALL SOUND(T2,659,2) 

3730 CALL SOUND(1000,698,2,440/5 

) 

3740 RETURN 

3750 DATA 262,349,392,440,523,44 

0,392,349,392 

3760 RESTORE 3750 

3770 FOR 1=1 TO 9 

3780 READ M 

3790 CALL SOUND(T2,M,2) 

3800 NEXT I 

3810 CALL SOUND(500,440,2) 

3820 RETURN 

3830 CALL SOUND(600,262,10) 

3840 CALL SOUND(600,311,7) 
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3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
41 50 
4 160 
4 ! 70 
41 80 
4 190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 


CALL SOUND(450,392,4) 
CALL SOUND(150,349,4) 
CALL SOUND(300,311,6) 
CALL SOUND(300,294,8) 
CALL SOUND(500,262,10) 
RETURN 

CALL SOUND(T,523,2) 

CALL SOUND(T,440,2) 

CALL SOUND(T2,440,2) 
CALL SOUND(T2,494,2) 
CALL SOUND(T,523,2) 

CALL SOUND(T2,494,2) 
CALL SOUND(T2,523,2) 
CALL SOUND(T2,494,2) 
CALL SOUND(T2,392,2) 
CALL SOUND(1000,440,2) 
RETURN 

CALL SOUND(400,440,8) 
CALL SOUND(200,392,8) 
CALL SOUND(200,440,7) 
CALL SOUND(400,587,6) 
CALL SOUND(200,523,5) 
CALL SOUND(200,587,4) 
CALL SOUND(400,494,3) 
CALL SOUND(200,440,4) 
CALL SOUND(200,494,5) 
CALL SOUND(500,392,6) 
RETURN 

CALL HCHAR(12,4,128,3) 
CALL HCHAR(13,4,128,3) 
FOR Y = 4 TO 6 
CALL VCHAR(14,Y,144,4) 
NEXT Y 

CALL VCHAR(11,27,136,3) 
CALL VCHAR(1 » , 28, 1 36,3) 
CALL VCHAR(14,27,152,6) 
CALL VCHAR(14,28,152,6) 
RETURN 

FOR X=10 TO 14 STEP 2 
FOR Y= 9 TO 13 STEP 2 
CALL HCHAR(X,Y,144) 
CALL HCHAR(X,Y-1,136) 
NEXT Y 
NEXT X 

FOR X=11 TO 13 STEP 2 
FOR Y= 8 TO 12 STEP 2 
CALL HCHAR(X,Y,144) 
CALL HCHAR(X,Y+1,136) 
NEXT Y 
NEXT X 

CALL HCHAR(12,16,61) 

FOR Y=19 TO 21 

CALL VCHAR(10,Y,136,5) 

NEXT Y 

FOR Y-2 2 TO 24 

CALL VCHAR(10,Y,144,5) 


4410 NEXT Y 
4420 RETURN 
4430 Y-6 

4440 FOR 1=1 TO 5 
4450 CALL VCHAR(10,Y, 1 36,2) 
4460 CALL VCHAR(10,Y + l ,136,2) 
4470 CALL VCHAR(12,Y,128,4) . 
4480 CALL VCHAR(12,Y+l,128,4) 
4490 Y-Y+5 
4500 NEXT I 
4510 RETURN 

4520 CALL HCHAR(10,11 , 1 36,1 3) 


4530 

CALL 

HCHAR(11,11 

,136 

,13) 

4540 

FOR ; 

<-12 TO 14 



4550 

CALL 

HCHAR(X,11, 

144, 

13) 

4560 

NEXT 

X 



4570 

CALL 

VCHAR(7,17, 

93,11) 

4580 

RETURN 



4590 

CALL 

HCHAR(10,8, 

1 28, 

2) 

4600 

CALL 

VCHAR(11,8, 

152, 

4) 

4610 

CALL 

VCHAR(1 1,9, 

152, 

4) 

4620 

CALL 

VCHAR(10,1 3 

, 1 28 

,4) 

4630 

CALL 

VCHAR(10,14 

, 1 28 

,4) 

4640 

CALL 

HCHAR(1 4,13 

, 1 52 

,2) 

4650 

CALL 

VCHAR(10,18 

,128 

,2) 

4660 

CALL 

VCHAR(10, 19 

, 1 28 

,2) 

4670 

CALL 

VCHAR(12,18 

, 1 52 

,3) 

4680 

CALL 

VCHAR(1 2,19 

,152 

,3) 

4690 

CALL 

VCHAR(10,23 

, 128 

,3) 

4700 

CALL 

VCHAR(10,24 

, 1 28 

,3) 

4710 

CALL 

VCHAR(13,23 

,152 

,2) 

4720 

CALL 

VCHAR(13,24 

,152 

,2) 

4730 

RETURN 



4740 

CALL 

VCHAR(10,8, 

1 28, 

4) 

4750 

CALL 

VCHAR(14,8, 

1 36, 

3) 

4760 

CALL 

VCHAR(10,1 2 

, 144 

,2) 

4770 

CALL 

VCHAR(10,1 3 

,144 

,2) 

4780 

CALL 

VCHAR( 1 2,12 

, 1 28 

,3) 

4790 

CALL 

VCHAR(12,13 

, 128 

,3) 

4800 

CALL 

HCHAR(10,17 

, 1 36 

,3) 

4810 

CALL 

HCHAR(11,17 

, 1 52 

,3) 

4820 

CALL 

HCHAR(12,17 

, 1 52 

,3) 

4830 

CALL 

HCHAR(13,17 

,152 

,3) 

4840 

CALL 

VCHAR(10,23 

,152 

,2) 

4850 

CALL 

VCHAR(10,24 

,152 

,2) 

4860 

CALL 

VCHAR(12,23 

, 144 

,4) 

4870 

CALL 

VCHAR(12,24 

, 1 44 

,4) 

4880 

RETURN 



4890 

CALL 

HCHAR(4,15, 

1 28, 

2) 

4900 

CALL 

HCHAR(5,14, 

1 28, 

3) 

4910 

CALL 

HCHAR(6,13, 

1 28, 

4) 

4920 

CALL 

HCHAR(7,13, 

1 28, 

4) 

4930 

CALL 

HCHAR(4,17, 

1 36, 

2) 

4940 

CALL 

HCHAR(5,17, 

1 36, 

3) 

4950 

CALL 

HCHAR(6,17, 

1 36, 

4) 

4960 

CALL 

HCHAR(7,17, 

1 36, 

4) 

4970 

CALL 

HCHAR(8,17, 

1 52, 

4) 

4980 

CALL 

HCHAR(9,17, 

152, 

4) 

4990 

CALL 

HCHAR(10,17 

,152 

,3) 

5000 

CALL 

HCHAR(11,17 

,152 

,2) 

5010 

CALL 

HCHAR(1 1,15 

, 1 44 

,2) 

5020 

CALL 

HCHAR(10,14 

, 144 

,3) 

5030 

CALL 

HCHAR(9,13, 

1 44, 

4) 

5040 

CALL 

HCHAR(8,13, 

1 44, 

4) 

5050 

RETURN 



5060 

DATA 

67,79,77,80 

,65, 

82,65,9 

0,73 

,79,78,73 




5070 RESTORE 5060 
5080 FOR Y-11 TO 22 
5090 READ L 

5100 CALL HCHAR(14,Y,L) 

5110 NEXT Y 
5120 GOSUtì 551 0 

5130 DIM NNN(10),DDD(10),FRC(10) 
,FRD(10) 

5140 PRINT "DISPOSIZIONE FRAZION 
I DALLA" 

5150 PRINT "DALLA MINORE ALLA MA 
GGIORE.": 

5160 INPUT "QUANTE FRAZIONI ?":NF 
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51 70 IF NP< 1 1 THEN 5200 

5180 PKINT "SPIACENTE: MAX. 10." 

5190 GOTO 5160 

5200 FOR 1*1 TO NF 

5 210 PKINT :‘."FRAZIONE ";I 

5220 INPUT " NUMERATORE:":NNN 

(I) 

5230 INPUT " DENOMINATORE:":D 
OD ( I ) 

5240 FRC(I)= NNN(I) /ODO (I) 

5250 FRD(I)*FRC(I) 

5260 NEXT I 

52 70 PRINT : : : : 

5280 SW= 0 

5290 FOR 1=1 TO NF-1 
5300 IF FRC(I)< = FRC( 1 + 1 )THEN 535 
0 

5310 PF*FRC(I) 

5320 FRC(I)*FRC(I+1) 

5330 FRC(I+1)= FF 
5340 SW=1 
5350 NEXT I 

5360 IF SW =1 THEN 5280 

5370 FOR 1*1 TO NF 

5380 FOR J-l TO NF 

5390 IF FRC(I)*FRD(J)THEN 5410 

5400 NEXT J 

5410 PRINT I;" ";NNN(I);;DD 

0 ( 1 ) 

5420 NEXT I 


5430 PRINT :::" 1. PER PROSSIMO 
PROBLEMA" 

5440 PRINT " 2. PER FINIRE" 

5450 CALL KEY(0,K,STATUS) 

5460 IF STATUS<*0 THEN 5450 

5470 IF K<>49 THEN 5490 

5480 CALL CLEAR 

5485 GOTO 5070 

5490 IF K*50 THEN 590 

5500 GOTO 5450 

5510 CALL SOUND(400,330,2,262,5) 
5520 CALL VCHAR(4,8,136,3) 

5530 CALL VCHAR(4,9,136,3) 

5540 CALL SOUND(100,330,2) 

5550 CALL HCHAR(7,8,144,2) 

5560 CALL SOUND(100,262,3) 

5570 CALL SOUND(400,330,1) 

5580 CALL VCHAR(4,15,128,4) 

5590 CALL VCHAR(8,15,152,2) 

5600 CALL SOUND(100,330,2) 

5610 CALL SOUND(100,262,3) 

5620 CALL SOUND(400,330,1) 

5630 CALL VCHAR(4,23,152,3) 

5640 CALL VCHAR(4,24,152,3) 

5650 CALL SOUND(200,392,5) 

5660 CALL VCHAR(7,23,136,3) 

5670 CALL SOUND(200,524,3) 

5680 CALL VCHAR(7,24,136,3) 

5690 CALL SOUND(400,660,1) 

5700 RLTUftN 




Pompieri 



In questo gioco vengono drammaticamente si¬ 
mulate le operazioni di salvataggio di un gran 
numero di bambini, imprigionati in uno stabile 
in preda alle fiamme. Il giocatore impersona 
il ruolo di un pompiere, giunto per primo sul 
luogo della tragedia, e sulle cui spalle grava 
dunque una enorme responsabilità. Il vigile del 
fuoco può muoversi sulla scaletta usando i ta¬ 
sti ’Q' e Z' (alto e basso): quando da una fi¬ 
nestra appare un bambino, è sufficiente pas¬ 
sargli accanto per salvarlo; viceversa quando 
l'infante viene raggiunto dalle fiamme, il gio- 

1 REM ••• POMPIERI ••• 

2 POKE 23658,0; LET Ju*p-0: 

GO SUB 6000 

5 LET ac«0i LET l-3x LET x- 5; 

LET y-9 


catore perde una vita. Quando il pompiere ha 
perso tre vite, la partita ha termine e l'edifi¬ 
cio. corroso dal fuoco, crolla incenerito al suo¬ 
lo. Il gioco è particolarmente adatto ai lettori 
più giovani, sia per la semplicità dello scopo da 
9 perseguire e per i pochi tasti di comando uti¬ 
lizzati, sia per la nobiltà d'animo che certa¬ 
mente caratterizza chi non è stato ancora in¬ 
durito dalla vita, ed è dunque disposto a rischia¬ 
re in proprio per il bene del prossimo. Buona 
fortuna... 


6 

FLA6H 0; 

BRIGHT 0 

7 

LET 


{32SG8)" 

10 

LET 

j-9: 

LET h-3 

1 1 

LET 

a«0 : 

LET b-0: LET c-0 

20 

FOR 

k-1 

TO 12: FOR n-0 TO 7i 



















READ a: POKE USR (CHR$ (143+k)) 
tn,a: NEXT ns NEXT k 

25 DATA 8,28,28,62,28,60,28,140 

26 DATA 252,28,28,54,54,55,55,119 

27 DATA 68,76,84,100,68,76,84,100 

28 DATA 0,36,20,75,126,126,254,254 

29 DATA 0,0,16,8,12,44,60,60 

30 DATA 0,0,0,0,127,127,255,0 

31 DATA 0,0,0,0,248,252,6,3 

32 DATA 231,231,195,195,129,195,195 
,195 

33 DATA 0,0,0,0,0,4,46,126 

34 DATA 0,0,0,16,60,12,12,28 

35 DATA 0,0,0,0,3,115,126,124 

36 DATA 126,126,0,0,0,0,0,0 
40 LET k-15 

45 GO SUB 6100-jump 

50 BORDER 7: PAPER 5l INK 4t CLS 

51 PRINT AT 17,0;t$*t$+t$*t$+t9 

52 INK 21 PAPER Oi POR n-2 TO 18 

STKP 2 : PRINT AT 11,1)" L": 

NEXT n 

53 INK 0: PAPER 6: FOR n-3 TO 17 

STEP 2: PRINT AT n,1;"{SG8)H 
{SG8}H{SG8}H(SG8} H : NEXT n 

54 PRINT AT 19,1 ;"{4SG8} (2SG8)" 

55 INK 7: PRINT AT 3,15;"{4SG8} M ; 

AT 4,1 4 ; " {6SG8} " ;AT 5,17;" 

{2SG8)" 

56 PRINT AT 4,23;"{2SG8}";AT 5,21;" 

(7SG8} " ;AT 6,22;"{4SG8}" 

60 INK 2: PRINT AT 17,9;"{6SG8}"; 

AT 18,9 ;"{6SG8}";AT 19,9;" 

{8SG8}"; PAPER 0;AT 20,9;" 

(2SG8){G3}i3SG8){G3}{SG8)" | 

PAPER 4; INK 0;AT 21,11 ;"lG3)"J 
AT 21,15;"(G3}" 

61 PRINT PAPER 2; INK 6;AT 19,9;"P 
. OMP IERI 11 

62 PAPER 4 I INK 0: PRINT AT 17,15;" 

(G6)";AT 18,16|"(G6)" 

63 PRINT PAPER 2; INK 0;AT 17,9;" 

(SG4)" 

65 PAPER 5: FOR n-2 TO 16; PRINT 
AT n,9;"C"; NEXT n 

66 NEXT n 

99 GO SUB 500 

100 PRINT INK 7 ; AT x,y;"A";AT x+1 ,y 
; "B" 

101 BEEP .001,20 

102 IF 1-0 THEN GO SUB 1999 

150 IF a-0 THEN GO SUB 600 

151 IF b-0 THEN GO SUB 610 

152 IF c-0 THEN GO SUB 620 

200 IF a>0 THEN LET a-a + 1 

201 IF b>0 THEN LET b-b+1 

202 IF C> 0 THEN LET C-C+l 

220 IF a-8 THEN LET q-3: GO SUB 700 

221 IF a-16 THEN LET q-3: GO SUB 71 
0 

222 IF a-21 THEN LETxj-3: GO SUB 80 
0 

230 IF b*4 THEN LET q-9: GO SUB 700 

231 IF b-10 THEN LET q-9: GO SUB 71 
0 


232 IF b-13 THEN LET q-9: GO SUB 80 
0 

240 IF c-8 THEN LET q-15: GO SUB 70 
0 

241 IF c-16 THEN LET q-15l GO SUB 7 
10 

242 IF c-21 THEN LET q-15l OO SUB 8 
00 

300 IF 8C>200 THEN LET Z-.004 

301 IF 80400 THEN LET Z-.003 

302 IF «0600 THEN LET 1-.002 

350 IF IMKKY9-"q" AND X>3 THEN 

LET X-X-ll PRINT INK 0;AT X + 2, 
y ; " C " 

351 IF lNKEY$-"z" AND X<15 THEN 

LET x«x+1: PRINT INK 0;AT x-1, 
y? "C" 

360 IF a>0 AND x-h THEN LET q-3: 

GO SUB 1000 

370 IF b>0 AND x-j THEN LET q-9: 

GO SUB 1000 

380 IF O0 AND x-k THEN LET q-15: 

GO SUB 1000 
400 GO TO 100 

500 PRINT PAPER 1; INK 7;AT 10,20;" 
PUNTI-";bc;AT 12,20;"VITE -";1 

501 RETURN 

600 IF RND>.95 THEN LET a-1: 

PRINT PAPER 0; INK 3;AT h,7| M K 

» 

601 RETURN 

610 IF RND<•05 THEN LET b-1: 

PRINT PAPER 0) INK 3)AT j , 7 ;"K 

H 

611 RETURN 

620 IF RND>.05 AND RND<.10 THEN 

LET c-li PRINT PAPER 0; INK 3; 
AT k,7;"K" 

621 RETURN 

700 PRINT INK 2; PAPER 6;AT q,2>"E" 

; INK 6; PAPER 0;AT q-l,2;"D" 

701 BEEP .01,20: RETURN 

710 PRINT INK 2; PAPER 6;AT q,4j"E" 

; INK 6; PAPER OjAT q-l,4>"D" 

711 BEEP .01,20: RETURN 

800 PRINT INK 2; PAPER 6;AT q,6;"E" 
; INK 6; PAPER 0;AT q-l,6;"D" 

801 PRINT FLASH 1; BRIGHT 1; INK 2; 

PAPER 6 ;AT q,7 ;"K" 

805 FOR n-0 TO 40: BEEP .002,n; 

NEXT n 

806 LET 1-1-1 

807 PRINT INK 0; PAPER 6;AT h,l; H 

(SG8}H{SGd}H{SG8}H{SG8)"; INK 2; 
PAPER 0;AT h-1,1j" L" 

808 LET a-0: LET b-Oi LET c-0 

809 PRINT INK 0; PAPER 6;AT j,l)" 

{SG8}H{SG8}H{SG8} H{SG8}"; INK 2; 
PAPER 0 ;AT j-1,1;" L" 

810 PRINT INK 0; PAPER 6;AT Tc,lj" 

{SG8)H{SG8}H{SG8)H{SG8}"; INK 2; 
PAPER 0 ;AT k-1,1 ;" L" 

811 GO SUB 500 

812 RETURN 

1000 LET sc-Bc+10 

1001 BEEP .01,20: BEEP .01,30: BEEP , 
01,24 
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1 002 PRINT INK 0; PAPER 6 ; AT (4,1;" 

{SG8) H{SG8}H{SG8}H{SG8)"; INK 2; 
PAPER 0;AT q-l,l|" L" 

1003 IK q-3 THEN LET «-0 

1004 UT q-9 THEN LBT b-0 

1 005 ir tj-15 THEN LET C*0 
1 006 GO SUIi 500 
1007 RETURN 

1999 GO TO 2200 

2000 PAPER 5: INK 0: PRINT FLASH 1; 

BRIGHT 1;AT 5,2;"HAI TOTALIZZAT 
O "; se;" PUNTI": IF sc>200 
THEN PRINT AT 7,9; INVERSE 1 ;" 
CONGRATULAZIONI" 

2005 PRINT AT 10,20;" " 

2010 PRINT AT 12,12;"Un'a11ra partita 
?";AT 14,19;"(S/N)" 

2020 IF INKEY$*"s" OR INKEY$-"S" 

THEN PRINT AT 14,12;"O.K. Un 
attimo...": RESTORE : GO TO 5 
2030 IF INKEY$-"n" OR INKEY$-"N" 

THEN GO TO 9999 
2040 GO TO 2020 

2200 rOR n-2 TO 16: PRINT PAPER 5; 

INK 0;AT n,1 ;" IJIIJII ";AT n-1 ,1 
;" "i UEEP .0ÙS,- 10 : 

NEXT n 

2201 GO TO 2000 

6000 PAPER 7: MORDER 7: INK 1: CLS 
6005’ PRINT AT 0,0; INVERSE 1;" 
POMPIERI 


6010 PRINT AT 3,0;"FAI PARTE DEL GLOR 
IOSO CORPO DEI POMPIERI DELLA TUA 
CITTA*, E SEISTATO CHIAMATO D'U 
RGENZA PER SALVARE DEI RAMAI 
NI, RIMASTI" 

6020 PRINT "IMPRIGIONATI IN UNO STABI 
LE IN PREDA ALLE FIAMME. INUTIL 
E DIRT1CHE E' VITALE SALVARLI PR 
IMA CHE IL FUOCO LI RAGGIUNGA." 

6030 PRINT "LA TUA MISSIONE (E LA PAR 
TITA) TERMINA QUANDO TRE BAMBIN 
I SONO STATI TOCCATI DALLE FIAMM 
El IN TALE CIRCOSTANZA L’ INT 
ERO PALAZZO CROLLERÀ*. BUON 
LAVORO 1" 

6040 PRINT '*"COMANDI:"*"Q-> SU"'"Z 

-> GIU'" 

6050 RETURN 

6100 PRINT INK 0;AT 18,17;"A";AT 19, 
17 ;"B";AT 18,15;"FG" 

6110 LET ] ump- 50 

6200 PRINT 11 ;AT 0,10;"PREMI UN TASTO 

ti 

6500 IF INKEY$<>"" THEN RETURN 

6510 GO TO 6500 

9998 STOP 

9999 BORDER 7: PAPER 7: INK 0: 

FLASH 0: BRIGHT 0: INVERSE 0» 
OVER 0: CLS 


Stoviglie 


5ir~ic=laii 


Spectrum 



\£K 


Forchette, coltelli, tazzine e numerose oltre sto 
vighe iniziano una danza in direzione della cu 
cina. ricreando la magica atmosfera di alcuni 
film di Walt Disney (vi ricordate ' 'La spada nel¬ 
la roccia"?): in questa sarabanda di oggetti il 
giocatore dispone di un cannoncino e di un li 
mitato numero di colpi, con i quali deve riusci¬ 
re a colpire le stoviglie in movimento e totaliz¬ 
zare il maggior numero di punti. Il problema 
consiste dunque nel massimizzare il rendimento 
dei proiettili: gli oggetti passano sulla parte al 
ta dello schermo, disposti su quattro file, e più 
sono in alto (e quindi difficili da raggiungere) 
più sono remunerativi. Poiché i colpi a disposi¬ 
zione sono 20 e il massimo punteggio associa¬ 
to ad un oggetto (la tazzina) è pari a 25 pun¬ 


ti, il miglior risultato conseguibile per partita è 
500 punti. Provate a realizzarlo: noi non ci sia¬ 
mo mai riusciti! Per quanto riguarda il program 
ma. va sottolineato che esso si avvale di routi¬ 
ne in linguaggio macchina per realizzare lo 
scro/l pixel per pixel delle diverse file di oggetti 
sullo schermo: le file si muovono secondo mo¬ 
dalità differenti (direzione e velocità di scorri¬ 
mento) rendono difficile il compito e offrendo 
un piacevole effetto grafico. I tasti di controllo 
sono '5‘ e 8' per spostare il cannoncino a de¬ 
stra e sinistra, e ’0' per far fuoco. Il program¬ 
ma. realizzato per S pectrum 48K. può essere 
salvato e reso autopartente con SAVE stovi¬ 
glie' LINEA 10. 
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1 REM 

2 REM CAROSELLO DI STOVIGLIE 

3 REM 

10 LET h«-0i LET q-50001i LET w-500 
ÌOi LET •■50068 : LET r-50070 
20 GO TO 80 

30 POKE q,8: LET o-USR w: POKE q,9: 
LET o-USR w: FOR u-1 TO 3s 
POKE e,5: LET o-USR r: POKE 8,6 
: LET o-USR r: NEXT u 
40 FOR u-1 TO 2: POKE q,lli LET O- 
USR w: POKE q,12i LET O-USR wi 
NEXT u 

50 FOR u = 1 TO 4: POKE e,2: LET o- 
USR r: POKE e,3: LET o-USR ri 
NEXT u 
70 RETURN 

80 BORDER 0: PAPER 0: INK 7: CLS l 
PRINT AT 10,9; FLASH l;"Un atti 
no.... " 

90 RESTORE 100: FOR n-50010 TO 5006 
.6: READ a: POKE n,a: NEXT ni 
FOR n-50070 TO 501 26 1 READ ai 
POKE n,a: NEXT n 

100 DATA 58,81,195,7,7,7,71,62,175,1 
52,50,81 , 195,30,8,205, 1 1 »,195,50 
,81,195,61,50,81,195,29,32,243,2 
01 

103 DATA 22,12,205,137,195,203,30,35 
, 21 , 32,2 50,200,20 5,l 37, 195,203,2 

54.201 

106 DATA 58,81,195,71,14,0,205,170,3 

4.201 

110 DATA 58,148,195,7,7,7,71,62,175, 
152,50,148,195,30,8,205,179,195, 
58,148,195,61,50,148,195,29,32,2 

43.201 

113 DATA 22,32,205,197,195,203,22,43 
,21,32,250,208,205,197,195,203,1 

98.201 

116 DATA 58,148,195,71,14,255,205,17 
0,34,201 

120 RESTORE 130: FOR n-USR M a" TO 
USR "t"+7i READ a: POKE n,a: 

NEXT n 

130 DATA 0,0,0,0,0,3,7,15 
132 DATA 126,126,126,126,126,126,255 
,255 

134 DATA 0,0,0,0,0,192,224,240 
136 DATA 24,60,60,60,126,126,126,66 
138 DATA 0,2,7,13,27,52,108,208 
140 DATA 3,7,15,31,62,124,120,48 
142 DATA 176,64,192,0,0,0,0,0 
144 DATA 56,56,40,40,68,68,130,130. 
146 DATA 130,130,254,254,254,254,254 
,254 

148 DATA 126,255,126,255,255,255,195 
,247 

150 DATA 247,215,199,255,255,251,243 
,126 

152 DATA 0,6,3,25,12,102,51,25 

154 DATA 0,0,0,128,192,64,192,128 

156 DATA 15,6,0,0,0,0,0,0 

158 DATA 192,224,112,56,28,14,6,0 

160 DATA 0,0,0,15,9,11,14,14 

162 DATA 0,0,0,240,254,241,113,242 

164 DATA 15,15,15,15,7,112,63,15 


200 


210 


DATA 212,152,240,240,224,14,252, 
240 

DATA 255,189,231,129,129,231,189 
,255 

CLS • x PRINT AT 0,0; PAPER 1; 

INK 7; BRIGHT 1; H CAROSELLO 

DI STOVIGLIE " 

PRINT AT 2,0; INK 6;"Prova a col 
pire le stoviglie chepassano Imn 
temente in direzione della cucin 
a, e cerca di guadagnar* 

il maggior numero di punti af 
ruttando al meglio i pochi colpi 
di cui disponi." 


*H" 1 "FG - 5 punti ",*1 


INK 3j" 


'"J","LM"'"K 
- T5 punti"*" 
•"PQ"'"rs 


- 10 


- 2 5 pun 


245 


INK 5: PRINT '"PUNTI:" 1 ' INK 3;" 

E","H.FG - 5 punti ",*1 

10 punti" 

INK 4: PRINT '"J","LM.. - 10 

punti","NO - T5 punti""" 

INK 5: PRINT '"pg"'"RS - 25 pun 

ti" 

PRINT AT 20,0;"5-ainiatra ’ 8-d 
estra 0-fuoco" 

PRINT #1;" PREMI UN TASTO PER 
INIZIARE": PAUSE 0: BEEP .5,10 
CLS : PRINT AT 21,0; INK 1; 

PAPER 5 ;"TTTTTTTTTTTTTTTTTTTTTT 
TT TTTTTTTT *;AT 0,0; PAPER 2; 

INK T7 5 * PUNTI* MAX- C 

OLPI- " 

LET f-0: LET y-12: LET 8-0: 

LET b-20: LET c-19 
INK 5: PRINT AT 2,0;" PQ PQ 
PQ PQ PQ PQ PQ RS RS 

RS RS RS RS RS" 

INK 3: PRINT AT^Oj" LM LM 


RS 

INK 

LM 

NO 

INK 

H 

Y 

INK 

E 

FG 


PRINT AT 8,0; 


" H 
H I 
I" 


PRINT AT 1T,0 ;" 


E 

FG" 


340 

350 

360 


400 

410 

420 


430 


440 


PRINT PAPER 27 INK 7;AT 0,7;s; 
AT 0,17;ha;AT 0,29;b;" " 

PRINT INK 6 ;AT 20,y; M ABC " 

IF f-1 TMKN PRINT INK—ff7 
PAPER 8 j AT c ,d ; " " 

IF b-0 THEN GO TO 530 
GO SUB 30 

LET y-y+(INKEY0-"8" AND y<26)-( 
INKEY$-"5" AND y>0) 

IF INKEY$-"0" AND f-0 THEN 
LET d-y+2: GO SUB 420 
IF f-1 THEN GO SUB 420 
IF f-0 THEN FOR n-0 TO 3l 
NEXT n 

BEEP .0001,60 
GO TO 310 

LET f-1: PRINT INK 8;AT C,dj"D" 
: LET cl-c: LET c-c-1I IF c-1 
THEN LET C-19: LET f-0: LET b- 
b-1: PRINT AT cl,d;" "l RETURN 
IF SCREEN$ (c,d)<>" " THEN 
GO TO 460 

INK 8: PRINT AT cl,d;" ";AT c,d; 
M D" 
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4 50 

RETURN 



460 

LET b«: 

b-1: LET 1- 

ATTR (C, 


PRINT 

AT c 1, d ;" 

N 

470 

IF 1-5 

THEN LET 

8-s + 2 5 

480 

IF 1*3 

THEN LET 

8-8+15 

4 90 

IF 1-4 

THEN LET 

8*8+10 

500 

IF 1-2 

THEN LET 

8-8+5 

51 0 

BEEP . 

005,10 


520 

LET c«l9: LET f-0 

: RETURN 


530 FOR n*-2 0 TO 20 STER . 5i BEEP .0 
05,n: BEEP .005,n*2i NEXT n 
540 IF s>hs THEN LET hs-8i PRINT 

AT 1,0; PAPER 1| INK 1) FLASH 1j 
"E* li. MIGLIOR PUNTEGGIO I BENE 
l M i FOR n-0 TO 20i BEEP .01,ni 
NEXT n 

550 FOR n*1 TO 200; NEXT n: GO TO 19 
0 


Carta più alta 



Un classico dell 'azzardo puro nel gioco con le 
carte consiste nel girare una carta, e puntare 
una certa somma scommettendo che la pros¬ 
sima carta nel mazzo sia di valore superiore 
o inferiore alla precedente. Indovinate quattro 
carte consecutive, si può continuare a giocare 


0 PRINT"{CLR)":POKE53281,7:POKE5 
3280,6 :DIMS5(52) :DIMC(52) :M=20 
:D=0:CU=0 

I POKE54296,1 5:POKE54 276,0 : POKE5 
4278,240 

4 FORJ=OTO 3 : FORI = 1TOl3:C( 1+J*13) 
=I:S$(I+J*13)«"{BLK}A" 

5 IFJ=1THENSS( I+J*13)«"{RED}S" 

6 IFJ = 2THENS$(I+J*l 3)«"{BLK)X" 

7 IFJ«3THENS$(I+J*13)«"{RED}Z" 

8 NEXT1,J ~ 

10 POKE54 2 76,0 :POKE54 276,1 7 

II POKE54273,34:POKE5427 2,75 :PRI 
NT"{HOME}{RED}POSSEDUTI 

{ 6 SPAZI}{ 6 SIN)";M;:GOS 
OBI 00 

13 POKE5427 3,0:POKE54272, 0 :CU“CU 
+ 1 

14 FORI * 1T04 

15 P=INT(RND(1)*52+1):IFC(P)=0TH 
ENI 5 

16 Ni=N:N$«STR$(C(P)):N=C(P) 

17 IFC(P)=lTHENN$=" A" 

18 IFC(P)=11THENNS=" J" 

19 IFC(P)=12THENN$=” Q" 

20 IFC(P)=13THENN$=" K" 

21 IFC(P)=10THENN$="10" 

22 C(P)=0:PRINT"{HOME}{GIU 1 } 

{BLKJtttttttt{RED}PIU 1 ALTA O 
PIU'BASSA{BLK}tttttttttt" 


raddoppiando la posta, oppure ritirarsi. Il com¬ 
puter vi offre la garanzia di un mazziere estro 
mamente onesto ed imparziale, che salomo 
me amente distribuirà vincite e perdite tra voi 
ed i vostri amici. 


23 IFI=1THEN27 

24 PRINT”{HOME}{ 17 GIU'}{BLU}PI 
U'ALTA O PIU'BASSA?” 

25 PRINT”{HOME}{ 17 GIU'}{BLU}PI 
U 1 ALTA O PIU'BASSA?” 

26 GETA$:IFA$<>”A"ANDA$<>"B"THEN 
25 

27 PRINT"{HOME}{DES}";:IFI=2THEN 
PRINT"{HOME}{ 11 DES}”; 

28 IFI=3THENPRINT"{HOME} 

{ 21 DES}"; 

29 IFI=4THENPRINT"{HOME} 

{ 31 DES}"; 

30 PRINT"{ 6 GIU'}{GRN}{< 7 +>] 
{GIU’}{ 7 SIN) [< + >] 

{ 5 SPAZI}[< + >} {GIU* } 

{ 7 SIN} [< + >] { 5 SPAZI} [< + >] 
{GIU*}{ 7 SIN}[<+>) 

{ 5 SPAZI){<+>]"; 

31 PRINT"{GIU'}{ 7 SIN} [<+->] 

{ 5 SPAZI}[<+>]"; 

32 PRINT" {GIU'} { 7 SIN} !<•+>] 

{ 5 SPAZI)[<+>]{GIU'} 

{ 7 SIN} [<+->] { 5 SPAZI} [< + >) 
{GIU'}{ 7 SIN}{<+>} 

{ 5 SPAZI}[<+>]{GIU 1 } 

{ 7 SIN}(< 7 +>]" 

33 PRINT"{HOME}{DES}"; : IFI = 2THEN 
PRINT"{HOME}{ 11 DES}"; 

34 IFI=3THENPRINT"{HOME} 
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a tutti i lettori che hanno 
compilato e rispedito il 
questionario accluso nel 
numero 15-28 Settembre di 



Le circa 8000 risposte pervenute hanno permesso di elaborare 
una grande quantità ai dati e ci hanno fornito indicazioni utili 
per prendere alcune decisioni importanti, senz'altro apprezzate 
da tutti. 

Dal 1 Aprile 1985 saranno in edicola le versioni di Paper soft 
dedicate ai prodotti Sinclair (ZX81, ZX Spectrum e il nuovo QL), 
ai prodotti Commodore (VIC20, CI6 e C64). In più un'edizione 
esclusiva per gli utenti dei personal Apple, gli home computer 
Texas e i nuovi sistemi MSX. 

E ora l'altra grossa novità: la possibilità di abbonarsi da Aprile 
a Dicembre 1985. Un'occasione unica. All'interno dell'accìuso 
depliant, nelle pagine dedicate a "Il tuo settimanale ", troverai 
le modalità per l'abbonamento e le facilitazioni accordate. 

E ora gira pagina. Se sei stato 
tempestivo, potrai trovare il 
tuo nome. 


































COMPLIMENTI Al 



Aceti Cario - Vio 1 Moggio, 416 • 22050 Verdono In#. CO 
Aigotti Angolo - Vio Marco th, 87 - 10044 Pionezza TO 
Ambrosio Giorgio - C.so Sebastopoli, 247 -10137 Torino TO 
Albarelli Stogano Vio Romilli, 20/4 - 20100 Milano MI 
Andreoli Marco - C.so limono Sovietico. 445 - 10135 Torino TO 
Astori Ivano • Vio C. Battisti, 100 - 25038 Rovato BS 
Bottassi Gion Pool© - Vio S. Bernordo, 5 - 29100 Piacenza PC 
Brioncesco Morto Vio V. Bellini, 22 - 20024 Gorbognote Mil. MI 
Cacciatore Carmelo - Vio 6. Porr oocito, 5 - 10146 Torino TO 
Cagliari Francesco • Vio Nicolo Fobrizi, 81 - 41100 Modena MO 
Casolini Mostimo Vio Sconnetti, 12 - 28100 Novoro NO 
Casati Andrea • Vio Monzoni, 15/B • 20090 Trezzono S/N MI 
Cenere Giovanni - Strodo Moncalvo, 68/1 • 10024 Moncolieri TO 
Gceri Umberto - Vio V.G. Orsini, 6 - 20147 Milano MI 
Gmberie Dono - Strodo Loreto, 12 bis • 10027 Moncolien TO 
CobioncHi Ezio Via Toncco, 89 -10023 Chieri TO 
Cali Marco V ie De Gosperi. 39 - 57037 Portoferroio LI 
Dogo Mossimiliono • Via Thiene - 36040 Torri di Quortesolo VI 
Dosio Massimo - V ie Mortiri, 87 • 10071 Borgoro TO 
Franco Salvatore - Vio Papa Giovanni XXIII, 92 • 10015 Ivrea TO 
Fregone Luigi - Via Mortiri Liberazione, 92 -16043 Chiovoli GE 
Gogliano Emilio • Vio C.V. Peroni, 68 - 20133 Milono MI 
Galvani Paolo * V.le dei Tigli, 18 - 20020 Arese MI 
Gen nari Pier g v e r rin o - Vio Parrocchia, 36 • 25020 Fiero BS 
Giova naie Giuseppe - Via Nicola Porpora, 1 -10155 Torino TO 


"50 VELOCISTI"! 

che, come avevamo promesso 
nel questionario, vincono 
un abbonamento a 11 numeri 
di ognuna delle seguenti 
prestigiose riviste del 
Gruppo Editoriale Jackson: 

BIT, Personal Software, 

Home Computer, Videogiochi. 

Ecco i nominativi dai quali 
abbiamo ricevuto i primi 
50 questionari e che si 
aggiudicano quindi l'ambito 
premio: 

Givbertoai Michele - Vio Monte Cassino, 10 • 13048 Sonthià VC 
Grossi Gimes - Casello Postale. 245 - 57100 Livorno LI 
GriHo Mauro • Vio Brunenghi, 4 - 17024 Pinole Ligure SV 
(dotta Corio - Vio Don Poviolo, 6 - 10036 Settimo Torinese TO 
Infantino Francesco - Via Risorgimento, 29 - 25128 Brescio BS 
faci Erminio - Vio T. Grossi, 8 • 22075 Cosnote con Serriate CO 
Labio Francesco - V.le Zara, 52 20124 Milano MI 
levy Walter - Via Correggio, 19 - 20149 Milono MI 
Lo Sordo Roberto - Vio Doro Boltea, 15 - 10015 Ivrea TO 
Lemmi Andrea Vio F.lli Bandiera, 14 - 43036 Fidenza PR 
Morelli Lionello - Via F. Borocca, 16 - 22060 Vighizzolo di Confa CO 
Moglia Armando Vio dei Frossini, 11 /B - 2001 2 Borgomonero NO 
Monti Rinoldo Vio Porto Corsini, 22 - 20126 Milano MI 
Morondi Antonio Vio Monfredo Fonti, 81 • 50100 Firenze FI 
Porro Fobrizio - Vio Berberi, 1 - 20146 Milono MI 
Rocco Cristion Vio Vodice, 20 • 22100 Como CO 
Rodoni Leandro • Via dei Mille, 12 • 28100 Novoro NO 
Roselli Giuseppe V ie Molta. 12/A - 29100 Piacenza PC 
Sereniti Claudio - Via M. D'Azeglio, 11 - 10045 Piossasco TO 
Scala Davide - Via Divisione Acqui, 8 - 46100 Mentova MN 
Strippali Maurizio Via Co' Grondo, 2 - 20162 Milano MI 
Suotoni Alfredo - Via Dante, 3 • 22070 Lurogo Mormone CO 
Travaglino Mario ■ Vio Guicciardini, 11 - 28069 Treccie NO 
Zonardi Andrea Via Arata • 26012 Costelleone CR 
Zeppatimi Graziano • Via Bg. Guazzo, 8-43100 Parma PR 


{ 21 DES}"; 

35 IFI=4THENPRINT"{HOME} 

{ 31 DES}"; 

37 PRINT"{ 7 GIU’}{DES}{PUR} " ; N$ 
; :PR1NT"{ 3 GIU’}"iS$(P); ;PRI 
NT"{ 3 GIU’}{PUR}";N$ 

38 POKE54276,33:POKE54 273,6 :POKE 
54272,206:FORZ=1TO200:NEXT:PO 
KE5427 3,0 

39 POKE54 272,0 

40 IFA$="A"ANDNl>MTHEN80 

41 IFA$="B"ANDNl<NTHEN80 

50 FORJ=lTO 300 :NEXTJ,I :FORI-ITO2 
4 4STEP2:POKE54273,1s NEXT:POKE 
54273,0 

51 IFD=lTHENPRINT"{HOME} 

{ 17 GIU'} {RED ÌHAI RADDOPP IAT 
O I TUOI SOLDI":M=M*2:GOTO53 

52 PRINT"{HOME}{ 17 GIU'}{PUR}VI 
NCI 5${ 31 SPAZI}":M=M+5 

53 PRINT"{HOME}{RED}POSSEDUTI 
{ 6 SPAZI}{ 5 SIN}";M;"$" 

55 D=0: PRINT"{ 18 GIU'}GIOCHI AN 
CORA?" 

56 GETA$:IFA$="N"THENEND 

57 IFA$<>"S"THEN56 


58 IFRND(1)<.5THEN70 

59 PRINT"{GIU'}{BLK}RADDOPPI?" 

60 GETA$:IFA$="N"THEN70 
63 IFA$<>"S"THEN60 

65 D = 1 

70 IFCU>9THEN4 
75 GOTO!0 

80 FORI = 244TO1STEP-2:POKE54273,I 
:NEXT:POKE54 273,0 

82 PRINT"{HOME}{ 17 GIU'}{PUR}AC 
CIDENTI! HAI PERSO!{ 5 SPAZI} 

II 

83 PRINT"{HOME}(RED)POSSEDUTI 
{ 6 SPAZI}{ 5 SIN}";M;"$" 

85 M=M-5:1FM = 0ORD=1THENPRINT" 
{CLR}SEI PELATO! CIAO":END 

86 D=0:PRINT"GIOCHI ANCORA? 

{ 24 SPAZI}" 

88 GETA$:IFA$="S"THEN70 
90 IFA$<>"N"THEN88 
95 END 

100 PRINT"{HOME}{ 4 GIU'}":FORI= 
1 TOl 9 

105 PRINT"{ 38 SPAZI}"; 

106 NEXT 

110 RETURN 



S nap è un gioco adatto a persone di tutte le 
età. 

Esso è, in pratica, un test di riflessi celato in 
un gioco d'azione molto divertente. 

In Snap vengono mostrati due mazzi di carte 
di cui ne viene scoperta carta alla volta, il cui 
valore è visualizzato al centro della carta stes¬ 
sa. 

Quando due carte uguali vengono scoperte, bi¬ 
sogna prontamente premere un tasto. 

Se si è abbastanza veloci si vince un numero 


5 POKE36879,30 
10 GOSUB1200 
20 GOSUB750 
25 GOSUB100 
30 GOSUB150 
35 GOSUBSOO 
40 GOSUB260 
50 COSUB210 


di punti corrispondenti al numero di carte sco¬ 
perte fino ad allora. 

Altrimenti il vincitore sarà il caro VIC 20. 

Ciò accadrà anche se viene premuto un tasto 
quando le due carte sono diverse. 

Vince chi dei due raggiunge per primo i 100 
punti. 

Ed ora si può dare il via ad una partita 'snap- 
posa ' e non c e da preoccuparsi perché il VIC 
20 non è un... baro! 


55 GOSUB500 
60 GOSUB260 
70 GOTO30 

100 PRINT"{CLR}" 

110 PRINT"(CYN}{ 3 DESitRVS) 
l<A>){ 5 »} [<S>] { 2 DES} 
1<A>] { 5 *} [ <S>]" 


25 


















111 PRINT" { 3 DES){RVS)-U 

{ 3 *)l-{ 2 DES)-U{ 3 Mi-" 

112 PRINT"I“3 DES){RVS}( 2 -T” 

{ 3 SPAZI)( 2 -){ 2 DEST 

{ 2 -){ 3 SPAZI){ 2 -)" 

113 PRI NT" { 3 OES ) { RVS ) ( 2 -_)0 
1<T>)P{ 2^)12 DES){ 2 -T 
Ol<T>7P{ 2 -)" 

114 PRINT"! 3 DÉS ) {RVS ) { 2 -_} 
l<G>) l<M>|l 2 -)l 2 OES) 

{ 2 -)(<G>1 l<M>1{ 2 -)" 

115 PRINT"{ 3 DES){RVS){ 2 -JL 
(<@>l£l 2 -){ 2 DES){ 2 

2 -)" 

116 PRINT"! 3 DES)(RVS){ 2 -) 

( 3 SPAZI)( 2 -)( 2 DEST 

( 2 -){ 3 SPAZI){ 2 

117 PRINT"{ 3 DES){RVS)-J 

{ 3 *}K-{ 2 DES)-J{“T *}K-" 

118 PRINT"! 3 DES)(RVS)1<Z>) 
l 5 *)l<X>) { 2 DES)l<Z>) 

{ 5 *)1<X»" 

140 RETURN 

150 B* INT(RND(l)*10)+48 

160 C*0:F*F+1 

180 POKE7796+C, B 

190 POKE38516+C,0 

200 GOSUB1 000 : RETURN 

210 D»INT(RND(1)*10)+48 

220 C * 9 : F * F +1 

230 POKE7796+C,D 

240 POKE3851 6+C,0 

250 GOSUB1000 : RETURN 

260 GETE$ 

270 IFB< >DANDE$< >""THEN350 
275 IFB< >DTHENE$ **" 0 " : RETURN 
280 IFE$*""THEN3 50 
290 PRINT"{HOME) { 12 GIU'KBLK) 
{rvsImi hai battuto{blu)" 

300 PS*PS+F:F*0 
310 GOSUB500: GOTO370 
350 PRINT"(HOME){ 12 GIU'){BLK) 
{RVS)TI HO BATTUTO{BLU)" 

360 CS*CS+F:P-0 
365 GOSUB500 

J70 POKE7944 +G ,32 
380 G*G+1 
390 IFG*14THEN410 
400 GOTO3 70 

410 PRINT"IL TUO PUNTEGGIO-"PS 
420 PRINT"IL MIO PUNTEGGIO»"CS 
425 G*0 

430 IFCS>10OTHEN550 
440 IFPS>100THEN650 
450 RETURN 

500 FORZ*1TOZZ:NEXT 

510 RETURN 

550 POKE36879,30 

560 PRINT"{RVS){ 3 DES)TI HO BAT 
TUTO 11" 

570 H=Hfl 

580 IFH-15THEN620 

590 GOSUB1000 

600 FORI-ITO100:NEXT 

610 GOTO560 

620 END 

650 POKE36879,30 


Comrrn 

Per cc 



Arriva un home computer 
favoloso, l’ideale per iniziare 
subito e meglio. 

Commodore 16: nuovo, 
grintoso, portentoso... e 
niente costoso. Commodore 
16 è completo, versatile, 
potente (usa il BASIC 3.5, la 
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UMMNM 


versione più potente del 
linguaggio; è utile per 
sviluppare l’apprendimento 
del linguaggio del futuro. 

È facilissimo da usare, è 
divertente e ti dà una mano a 
risolvere un sacco di 
problemi. 


Commodore 16 è un 
“super-Vic” per quanto 
riguarda la capacità, la 
memoria (16K), le prestazioni. 

È anche un videogioco 
superbo, con grafica in alta 
risoluzione, due generatori di 
suono incorporati, entu¬ 


siasmanti cartucce giochi. 

Commodore ti fa scegliere. 
Commodore Italiana S.p.A. 
tei. 02/618321. 



Commodore 

COMPUTER 







660 PRINT"{RVS}{ 3 DES}MI HAI BA 
TTUTO !" 

670 H-H+l 

680 IFH-15THEN720 

690 GOSUBIOOO 

700 FORI = 1T0100 :NEXT 

710 GOTO660 

720 END 

750 GOSUB100 

760 PRINT"{ 2 GIU 1 }" 

770 PRINT"{ 5 DES) {BLK}* **SNAP** 
* •• 

780 K= K+1 :GOSUB500 
790 IFK*6THENRETURN 
800 GOSUBIOOO 


810 GOTO 770 
1 000 POKE36878 ,15 
1010 POKE36876,255 
1 020 FORJ* 1TO10 :NEXT 

1030 POKE36878,0 
1 040 POKK.36876,0 
1050 RETURN 

1 200 FRI NT"ICLR){BLU}" 

1210 FRINT: FRINT 

1 220 FRI NT" DIFPFICOLTA' (1/1 000) 
{GIU* } (1«DIFF•/1000«FACI LE 

) 

1230 1NPUTZZ 
1240 RETURN 


Lander pilot 



Perché non aiutare / poveri abitanti del Piane¬ 
ta Layoul ad atterrare sulla luna per portare 
a termine una loro esplorazione pacifica? 

Dopo aver fatto partire questo eccitante gioco 
appariranno le istruzioni. 

Dopo di ciò inizierà il gioco e la superficie della 
luna sarà visualizzato sullo schermo, circon¬ 
data da una marea di asteroidi che ostacola¬ 
no notevolmente una discesa e un atterraggio 
sicuro. 

Sulla parte alta dello schermo ci sarà l'astro¬ 
nave che sorvola la superficie, e che attende 
solo che sia premuto un tasto per iniziare la 
sua spericolata discesa ai confai dell'impossi¬ 
bile. 

Essa avrà nella fase iniziale una velocità mo¬ 
desta. ma poi, per effetto della seppur debole 


1 REM LANDER PILOT 
10 GOSUB700 
12 FORQW s lT02000:NEXT 
15 POKE52, 28 :POKE56,2 8 
40 FORI«33024TO33095 
50 READA:POKEI-25600,A:NEXT 
60 DATAO,0,0,0,0,0,0,0,0,24,36,1 
26,126,36,66,231,3,7,15,25,25 
,15,7,7 

70 DATA255,0,0,0,0,0,0,0,192,224 
,240,152,152,240,224,224,0,20 
,62,124,62,63,28,8 


gravità della luna, precipiterà scripte piu ve¬ 
locemente verso il pianeta. 

Per diminuire la sua velocità di discesa sono 
disponibili dei potenti retrorazzi che. sempre 
gradualmente, faranno diminuire la velocità di 
discesa della nave spaziale. 

Attenzione però! La scorta di combustibile è 
limitata e. al suo esaurimento, la nave pren¬ 
derà a precipitare inesorabilmente. 

Per effettuare un atterraggio evitando la distru¬ 
zione della navicella, è necessario che essa at¬ 
terri sulla superficie lunare ad una velocità mol¬ 
to limitata, e che si posi esattamente al cen¬ 
tro delle due guide viola, poste casualmente sul¬ 
la superficie. 

E allora buona fortuna e... occhio alla benzi¬ 
na!!! 


80 DATAO,0,1,3,I,3,7,255,0,0,128 
,192,128,192,224,255,0,0,0,0, 
32,116,126,255 

90 POKE36869,255:CLR 
100 REM 

110 POKE3687 9,8 :PRINT"{CLR}":FOR 
1=8142T08163 

120 POKEI,40:POKEI+30720,5:NEXT: 
A=1NT(RND(1)*19) + 8 142:POKEA, 
3 8 :POKEA+1 ,32:POKEA+2,39 
125 A c A + 30 720:POKEA,4 :POKEA+2,4 
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130 FORI * 1 TOl0 : A»INT(RND( 1 )* 373) 
♦-774 6 : POKEA, 37 :POKEA+30 720,2 
: NEXT 
1 4 0 REM 

145 LIO: POKE 36878,1 5 
150 Q a 1:X=7681 :F=100 

160 POKE36876,1 50 : FORI * 1TO50:NEX 
T:POKE3 6876,0 :POKEX + 1,34:POK 
EX+2,3 3 : POKEX+3,36 

161 IFQ=1THENPOKEX,32 
lb2 IFQ=-1 THENPOKEX-*-4,32 
170 IFX=7697THENQ=-1 

175 IFX-7680THEN220 

177 GETA$: I FA$<>""THEN2 1 0 

180 FORI *1TO200:NEXT 

190 X = X + Q 

200 GOTO160 

210 REM 

220 POKEX+2,35:C=1000:S=7680:X=X 
- 7678 : Y=1:Q^1 

225 CP$«"{HOME}{ 22 GIU'}” 

230 POKES+X+22* Y, 33 
235 IFC< =0THENC = 10 : V=1 
240 FORI-1TOC :NEXT:IFV=1THENC*0: 
V= 0 

250 POKES + X+22 *Y,32 :Y*Y+Q 
255 IFY = 1THENPRINTCP$;"(RVS)GRAV 
ITA* NON PRESENTE";: FORTUITO 
2000 :NEXT:GOTO460 
260 POKE36877,0 :P=PE£K(197) :IFY = 
2 2THEN60 0 

270 IF P = 1 7ANDQ= 1 ANDF>0THENC=C+1 5 
0 :POKE36877,1 50 :IFC> = !000THE 
NQ--1 

280 IFP=17ANDQ=-1ANDF>0THENC=C+( 
00) * 50 : POKE36877,1 50 

283 IFP = 1 7ANDF>0THENF*F -1 0 

284 IFF>0THENPRINTCP$;"{RVS}BENZ 
INA{ 5 SPAZI}{SPAZI} 

{ 6 S l N } " ; F ; 

285 IFF-0THENPRINTCP$;"LA BENZIN 
A E* FINITA"; 

290 IFPOl 7ANDQ-- 1 THENC*C+1 00: IF 
0-1000THENQ* 1 

300 IFPO1 -7ANDQ= 1 THENC-C+ (C>0) *1 
50 

310 IFP=21 THENX=X- 1 :E = 21 :GOTO330 
320 IFP*22THENX=X+1:E=23:GOTO330 
325 E= 22 

330 IFO-1THENPOKES+X-E+22*Y,32 
340 IFQ«-1THENPOKES+X+E+22*Y,32 
350 IFPEEK (S+X+22*Y) 0 32THEN4 00 
360 GOTO230 
400 REM 

410 POKE36877,200:FORF 3 15TOlSTEP 
-1 

4 22 POKE3b865,36:POKE3686 4,10 : PO 
KE36865,40:POKE36864,14 
440 POKE36865,38 :POKE36864,12 
450 POKE36878,F:FORT-1TO50:NEXT: 
NEXT:POKE36877,0:POKE36878,1 
5 

4t>0 POKKl 98,0 : LI=LI- 1 : I FLI >0THEN 
FORI =01*021 : POKES-t-1,32 : POKES+ 
484*1,32 :NEXT:GOTO I50 
470 FORI=1T08:PRINTCHR$(13):NEXT 


:PRINT"{ 6 SPAZI}{RVS}GAME O 
VER!":POKE36878,15:POKE36874 
, 128 

4 80 FORU = 1TO100 :NEXT:POKE36874,0 
:POKE36869,240 

490 PRINT"{ 2 GIU'}{ 2 SPAZI} 

{RVS}PUNTI :";SC:PRINT" 

{ 2 GIU *}{ 2 SPAZI} {RVS}ANCO 
RA?":POKEl98,0:FORI=1T03:PRI 
NTCHR$(13):NEXT 
500 CETA8: IFA$ «""THEN500 
510 IFA$»"S"THENRUN90 
520 END 

599 REM 

600 IFC<500THEN400 

620 SC = SC+ 10: PRINTCPS ; " {RVS } 

{ 12 DES}PUNTI";SC; 

640 FORNM=1T05 

650 A= INT (RND ( 1 ) *373) +7746:IFPEE 
K(A)=37THEN650 

660 POKEA,37 :POKEA+30720,2 :NEXT 
670 FORI = 255T0127STEP-1 :POKE3687 
6, I: NEXT: LI «LI 4-1 :GOTO4 60 
700 PRINT"{CLR}{ 3 GIU'} ** 

{ 2 SPAZI}LANDER PILOT 
{ 2 SPAZI}** " 

710 PRINT"{ 2 GIU'} (L)«SINISTRA 
M ,"{GIU 1 } (;)«DESTRA", M 
{GIU'} (A)«MOTORE" 

720 PRINT"{ 2 GIU'}{RVS} 

{ 2 SPAZI}ATTENDERE PREGO... 

{ 2 SPAZI} "-.RETURN 


Leggete 
Supersinc 
e Supercommodore 


Errata Corrige 

Listato ESCHER per TI-99 sul numero 4 di 
Papersoft. 

Le linee da 950 a 980 sono da leggersi: 

950 PRINT "Altri grafici? (S/N)" 

960 CALL KEY (0.K.S) 

970 IF S=0 THEN 960 
980 IF K = 83 THEN 140 
Ci scusiamo con i lettori. 
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Dalla grande 
edicola 


Jackson 

Tutto sull’hobby 
e home 


COMPUTER 

In questo numero: 

MSX Basic: 2 
puntata 
The Biz per 
Spectrum 
Insegnamo le 
frazioni al nostro 
computer 
Tutto sul 
portatile Olivetti 


STRUMENTI MUSICALI 


In questo numero: 

Gibson Flying "V" 

Pianoforti usati 
Pickup per basso elettrico 
Programmare il DX7 con lo Spectrum 
GLOSSARIO D'INFORMATICA 
MUSICALE-5° fascicolo 


VIDEOGIOCHI In questo numero: 

Speciale due anni dopo: 
cosa ci riserva il 1985? 
Tuttolucky 

Provati in anteprima: 
Ghostbusters e The Biz 



Strumenti Musicali/Video Giochi/Home Computer 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 




nipple u§m cojib') 

WOAlili JGGXXÌB* <34 

Comunicato riseruoto a tutti 
gli utenti appiè. 

Sono aperte le iscrizioni per 

° ^jpjpo© ®0©o* eam& ° 

Il primo user club con lo sede 
in Milano . Per Informazioni 
scrinerò a: 

° Afpgfl© W&SG (ESsn B) ° 

UIRLE JENNER, 64 MILRNO 


Per ricevere gli arretrati di 



,5^compilare il seguente tagliando: 


Compilare ed inviare in busta chiusa a: 
l SOft via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


J.Si 


Nome _ 

Cognome _ 

Indirizzo _ 

CAP _ Città _ Prov. 


Desidero ricevere i seguenti numeri arretrati di 

- Anno - 

a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contanti allegati 
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A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 




